try to unprotect fork branches before deleting them

Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>

1 files changed, 8 insertions, 0 deletions

diff --git a/lib/API/GitForge/GitLab.pm b/lib/API/GitForge/GitLab.pm
index 2091cfc..1e620d8 100644
--- a/lib/API/GitForge/GitLab.pm
+++ b/lib/API/GitForge/GitLab.pm
@@ -128,6 +128,14 @@ sub _nuke_fork {
     $self->{_api}->delete_project("$user/$repo");
 }
 
+sub _ensure_fork_branch_unprotected {
+    my ($self, $upstream, $branch) = @_;
+    my (undef, $repo) = _extract_project_id($upstream);
+    my $user = $self->{_api}->current_user->{username};
+    return unless $self->{_api}->protected_branch("$user/$repo", $branch);
+    $self->{_api}->unprotect_branch("$user/$repo", $branch);
+}
+
 sub _extract_project_id {
     my $project = shift;
     $project =~ s#(?:\.git)?/?$##;