aboutsummaryrefslogtreecommitdiffstats
path: root/create-topic-branches
blob: efde187b6af43d53e2faadaabddaa840ad761659 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl -w
use strict;

my $range = "";
$range = shift if @ARGV;

foreach (`git log --oneline --first-parent $range`) {
    next unless /^([\da-f]+) Merge branch '([^\']*)'/;
    print "git branch -f $2 $1^2\n";
}