delete-unchanged-branches

#!/usr/bin/env perl
use strict;
use warnings;

use Cwd qw(realpath);
use File::Basename;
my $BASE_DIR = dirname realpath __FILE__;

my @useless;
my @branches = `git branch | grep -v master`;
for (@branches) {
    s/^\s+//;
    s/\s+$//;
}

for my $branch (@branches) {
    my @mp = `git merge-base -a $branch master`;
    chomp @mp;
    my @trees = (
        `git show -s --format='%T' $branch`,
        map { `git show -s --format='%T' $_` } @mp,
    );
    chomp @trees;
    @trees = grep { ! /^$/ } @trees;
    if ( ! system 'git', 'diff-tree', '--quiet', @trees ) {
        push @useless, $branch;
    }
}

for ( @useless ) {
    print "Useless: $_\n";
    #system "git branch -D $_";
}