From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 6 Jan 2017 18:08:52 +0000 (+0000)
Subject: dgit-badcommit-fixup: Debugging (commented out)
X-Git-Tag: archive/debian/2.16~9
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=commitdiff_plain;h=fad2273acdda6c4343cd9c27f037cd3fb64d7c6d;hp=254a2c58e582e4536ef7a8feada775139e7ca9d5

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 bab8605a..98720e57 100755
--- 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';
-#print STDERR ">$obj|$olddata<\n";
     $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}++;
+#print STDERR "UNCHANGED $obj\n";
     } else {
 	$newobj = hashobj $newdata, 'commit';
+#print STDERR "REWRITTEN $obj $newobj\n";
     }
     $$m= $newobj;
     return $newobj;