Permalink
Browse files

Update App::Mirror::Parrot to not remove github branches with /'s

  • Loading branch information...
1 parent a917a0a commit 8c70dec910c5338fdbcd0ca2b00ad49c0496b750 @leto committed Sep 5, 2010
Showing with 3 additions and 1 deletion.
  1. +3 −1 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;

0 comments on commit 8c70dec

Please sign in to comment.