git-debrebase: Set $debugcmd_when_debuglevel = 2

[dgit.git] / git-debrebase

diff --git a/git-debrebase b/git-debrebase
index f72625d6166a156322b2860671e5a7bd6c1c8d87..429e17d345a24a9ca1d09bdd55ea5dc8dcc7b755 100755 (executable)
--- a/git-debrebase
+++ b/git-debrebase
@@ -36,6 +36,8 @@ use Dpkg::Version;
 use File::FnMatch qw(:fnmatch);
 use File::Copy;
 
+$debugcmd_when_debuglevel = 2;
+
 our ($usage_message) = <<'END';
 usages:
   git-debrebase [<options>] [--|-i <git rebase options...>]
@@ -1326,7 +1328,7 @@ sub walk ($;$$$) {
     };
 
     my $final_check = get_differs $build, $input;
-    die sprintf "internal error %#x %s %s", $final_check, $build, $input
+    die sprintf "internal error %#x %s %s", $final_check, $input, $build
        if $final_check & ~D_PAT_ADD;
 
     my @r = ($build, $breakwater, $last_anchor);