Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 55 lines (50 sloc) 985 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';
inflate_result
pg-bytea
replication_transaction_fix
sybase
test_tweaks
test_coverage
alias_length_limit
bind_types
bugfix#28451
stopgap
release_0.080
subclassed_rsset
storage-ms-access
sqlt_tests_refactor
rs_col_bugfix
replication_dedux
port_to_dbix_connector
pluggable-sqlt-integration
param_bind
ordered_multicolumn
ordered_handle_updates
joined_count
mssql_switch_to_RNO
identity_cleanup
fixtures
file_column
ensure_source_loaded
empty_rs
compose_stuff
rs_storage_pod_fix
find_compat
xt_tests
END_BRANCHES
my @branches = split /\n/, $branches;
for ( @branches ) {
s/^#.*//;
s/\s+#.*//;
s/^\s+//;
s/\s+$//;
next
if $_ eq '';
system "git branch -D '$_'";
}