diff options
Diffstat (limited to 'Debian/Dgit.pm')
-rw-r--r-- | Debian/Dgit.pm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm index 2938ae1..edb338c 100644 --- a/Debian/Dgit.pm +++ b/Debian/Dgit.pm @@ -173,8 +173,13 @@ sub cmdoutput_errok { die $! if P->error; if (!close P) { printdebug "=>!$?\n"; return undef; } chomp $d; - $d =~ m/^.*/; - printdebug "=> \`$&'",(length $' ? '...' : ''),"\n" if $debuglevel>0; #'; + if ($debuglevel > 0) { + $d =~ m/^.*/; + my $dd = $&; + my $more = (length $' ? '...' : ''); #'); + $dd =~ s{[^\n -~]|\\}{ sprintf "\\x%02x", ord $& }ge; + printdebug "=> \`$dd'",$more,"\n"; + } return $d; } |