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 f8aa9d8f6c249fb75e22356c338f25efdb49d76f..3d517e1e56b8d350648f2a8c55252d15a4014708 100644 (file)
--- a/Debian/Dgit.pm
+++ b/Debian/Dgit.pm
@@ -160,7 +160,10 @@ sub enabledebuglevel ($) {
     
 sub printdebug {
     return unless $debuglevel >= $printdebug_when_debuglevel;
-    print DEBUG $debugprefix, @_ or die $!;
+    print DEBUG $debugprefix;
+    pop @_ while @_ and !length $_[-1];
+    return unless @_;
+    print DEBUG @_ or die $!;
 }
 
 sub messagequote ($) {