New import: make_commit_text: Some more debug

[dgit.git] / dgit

diff --git a/dgit b/dgit
index b9b47eb3cde5cd4ab19b02b5378d698294038ffd..15a94c72f9aaace53f3196fd4994cf063d8b144e 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -1455,6 +1455,7 @@ sub make_commit_text ($) {
     my ($out, $in);
     my @cmd = (@git, qw(hash-object -w -t commit --stdin));
     debugcmd "|",@cmd;
+    print Dumper($text) if $debuglevel > 1;
     my $child = open2($out, $in, @cmd) or die $!;
     my $h;
     eval {