Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100755 43 lines (37 sloc) 0.88 kB
9f388f0 @haarg stuff
authored
1 #!/usr/bin/env perl
2
3 use Cwd qw(realpath);
4 use File::Basename;
5 my $BASE_DIR = dirname realpath __FILE__;
6
7 my @branches = `git branch | cut -c3-`;
8 for ( @branches ) { s/^\s+//; s/\s+$//; };
9
10 my %current_branches = map { $_ => 1 } qw(
11293bd @haarg lots of progress
authored
11 abandoned/manual
12 abandoned/mysql_grant_privileges_sketch
13 abandoned/prepare_cached
14 abandoned/test_class
15 abandoned/view-deps
9f388f0 @haarg stuff
authored
16 async_storage
17 dbicadmin-non-versioned
18 extended_rels
19 group_by_consistency
20 master
21 mc_optimizations
22 multi_update
23 oracle_hierarchical_queries_rt39121
24 order_by_func
25 pg_cursors
26 prefetch
27 resultset-remove-columns
28 rs_UD_cleanup
29 run_file_against_storage
30 strptime_parser_maker
31 try-tiny
32 xt_tests
33 );
34
35 for my $branch ( @branches ) {
36 next
37 if $current_branches{$branch};
11293bd @haarg lots of progress
authored
38 next
39 if $branch =~ m{^trash/};
9f388f0 @haarg stuff
authored
40 print "$branch\n";
41 }
42
Something went wrong with that request. Please try again.