From 8c70dec910c5338fdbcd0ca2b00ad49c0496b750 Mon Sep 17 00:00:00 2001 From: "Jonathan \"Duke\" Leto" Date: Sun, 5 Sep 2010 12:28:49 -0700 Subject: [PATCH] Update App::Mirror::Parrot to not remove github branches with /'s --- perl_lib/App/Mirror/Parrot.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/perl_lib/App/Mirror/Parrot.pm b/perl_lib/App/Mirror/Parrot.pm index 85a5df2..d281c63 100755 --- a/perl_lib/App/Mirror/Parrot.pm +++ b/perl_lib/App/Mirror/Parrot.pm @@ -89,7 +89,9 @@ sub run { say "Finding svn branches..."; my (@svn_branches) = map { chomp; $_ =~ s%/$%%g; $_ } qx( svn ls https://svn.parrot.org/parrot/branches ); - my (@zombie_branches) = grep { $_ !~ m/^master$/ } (set(keys %$github_branches) - set(@svn_branches))->members; + + # Branches with /'s are new github branches, they should not be deleted + my (@zombie_branches) = grep { $_ !~ m!(^master$|/)! } (set(keys %$github_branches) - set(@svn_branches))->members; my (@new_tags) = (set(@svn_tags) - set(keys %$github_tags))->members; $self->new_tags(1) if @new_tags;