Dgit.pm: printdebug: Strip empty strings from @_ and maybe quit early

[dgit.git] / Debian / Dgit.pm

diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm
index df6dbfb3272b894965c32fa55ac9238e9c9a2c7f..3d517e1e56b8d350648f2a8c55252d15a4014708 100644 (file)
--- a/Debian/Dgit.pm
+++ b/Debian/Dgit.pm
@@ -159,8 +159,11 @@ sub enabledebuglevel ($) {
 }
     
 sub printdebug {
-    print DEBUG $debugprefix, @_ or die $!
-       if $debuglevel >= $printdebug_when_debuglevel;
+    return unless $debuglevel >= $printdebug_when_debuglevel;
+    print DEBUG $debugprefix;
+    pop @_ while @_ and !length $_[-1];
+    return unless @_;
+    print DEBUG @_ or die $!;
 }
 
 sub messagequote ($) {