dgit-badcommit-fixup: Debugging (commented out)

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/dgit-badcommit-fixup b/dgit-badcommit-fixup
index bab8605aed270ea83d96f8f3c47ea8896b96fd10..98720e57d6eb2f67bfdf6b644b17a80b456c41e5 100755 (executable)
--- a/dgit-badcommit-fixup
+++ b/dgit-badcommit-fixup
@@ -79,7 +79,6 @@ sub rewrite_commit ($) {
     my $m = \ $memo{$obj};
     return $$m if defined $$m;
     my $olddata = getobj $obj, 'commit';
     my $m = \ $memo{$obj};
     return $$m if defined $$m;
     my $olddata = getobj $obj, 'commit';

-#print STDERR ">$obj|$olddata<\n";

     $olddata =~ m/(?<=\n)(?=\n)/ or die "$obj ?";
     my $msg = $';
     local $_ = $`;
     $olddata =~ m/(?<=\n)(?=\n)/ or die "$obj ?";
     my $msg = $';
     local $_ = $`;


@@ -98,8 +97,10 @@ sub rewrite_commit ($) {
     if ($newdata eq $olddata) {
        $newobj = $obj;
        $count{unchanged}++;
     if ($newdata eq $olddata) {
        $newobj = $obj;
        $count{unchanged}++;

+#print STDERR "UNCHANGED $obj\n";

     } else {
        $newobj = hashobj $newdata, 'commit';
     } else {
        $newobj = hashobj $newdata, 'commit';

+#print STDERR "REWRITTEN $obj $newobj\n";

     }
     $$m= $newobj;
     return $newobj;
     }
     $$m= $newobj;
     return $newobj;