$logcache = undef;
my $msg = backtick 'git', 'log', '-1', '--pretty=fuller', $r
or die "git-log: $!";
- my $cmsg = "";
- my $author = "";
- my $email = "";
- my $date = "";
for(split /\n/, $msg)
{
if(/^Author:\s*(.*)/)
}
open my $fh, '>', '.commitmsg'
or die ">.commitmsg: $!";
- print $fh "UNMERGE\n$cmsg" . "::stable-branch::merge=$r\n"
+ print $fh "UNMERGE\n$cmsg" . "::stable-branch::unmerge=$r\n"
or die ">.commitmsg: $!";
close $fh
or die ">.commitmsg: $!";