changelog: start 2.17~

[dgit.git] / dgit-badcommit-fixup

diff --git a/dgit-badcommit-fixup b/dgit-badcommit-fixup
index d1bca74dc23f245e2d4b88dec1455df1400bbb55..c119c4acae99f65f8e7e626b0a7960fb54bcb1fd 100755 (executable)
--- a/dgit-badcommit-fixup
+++ b/dgit-badcommit-fixup
@@ -25,6 +25,8 @@ use POSIX;
 use IPC::Open2;
 use Data::Dumper;
 
+our $our_version = 'UNRELEASED'; ###substituted###
+
 my $real;
 
 foreach my $a (@ARGV) {
@@ -193,9 +195,11 @@ sub edit_rewrite_map ($) {
        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`;
@@ -226,6 +230,7 @@ foreach my $rline (split /\n/, $refs) {
        $org_rewrite_map = $obj;
        continue;
     }
+    next if $refname =~ m{^refs/dgit-(?:badcommit|badfixuptest)/};
     my $rewrite;
     if ($type eq 'commit') {
        $rewrite = rewrite_commit($obj);