use IPC::Open2;
use Data::Dumper;
+our $our_version = 'UNRELEASED'; ###substituted###
+
my $real;
foreach my $a (@ARGV) {
runcmd qw(git add map);
}
- runcmd qw(git commit -q),
- qw(-m), 'dgit-badcommit-fixup',
- qw(map);
+ runcmd qw(git commit -q), qw(-m), <<END, qw(map);
+dgit-badcommit-fixup
+
+[dgit-badcommit-fixup $our_version]
+END
$!=0; $?=0;
my $new = `git rev-parse HEAD`;