From 067e68de07f7d1cf1d406c4917e9cdd7b0b6f26a Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sat, 18 Jul 2015 15:57:28 +0100 Subject: Do some quoting on debug output (needed if the server might not be trustworthy and might send us bad stuff). --- Debian/Dgit.pm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'Debian') 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; } -- cgit v1.2.3