}
open my $fh, '>', '.commitmsg'
or die ">.commitmsg: $!";
- print $fh "$cmsg" . "::stable-branch::reject=$r\n"
+ print $fh "REJECT\n$cmsg" . "::stable-branch::reject=$r\n"
or die ">.commitmsg: $!";
close $fh
or die ">.commitmsg: $!";
}
open my $fh, '>', '.commitmsg'
or die ">.commitmsg: $!";
- print $fh "$cmsg" . "::stable-branch::unreject=$r\n"
+ print $fh "UNREJECT\n$cmsg" . "::stable-branch::unreject=$r\n"
or die ">.commitmsg: $!";
close $fh
or die ">.commitmsg: $!";
{
unshift @rlog, ['reject', $log->{order_a}[$_]];
}
- elsif(!$log->{bitmap}[$_])
+ elsif($log->{bitmap}[$_] == 0)
{
unshift @rlog, ['unmerge', $log->{order_a}[$_]];
}