Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 28 lines (23 sloc) 480 Bytes
#!/usr/bin/env perl
use strict;
use warnings;
use Cwd qw(realpath);
use File::Basename;
my $BASE_DIR = dirname realpath __FILE__;
my $branches = <<'END_BRANCHES';
async_storage
manual
mysql_grant_privileges_sketch
prepare_cached
run_file_against_storage
test_class
END_BRANCHES
my @branches = split /\n/, $branches;
for ( @branches ) {
s/#.*//;
s/^\s+//;
s/\s$//;
next
if $_ eq '';
system "git branch -m $_ abandoned/$_";
}