chiark / gitweb /
Move a $debug check into printdebug (nfc)
[dgit.git] / Debian / Dgit.pm
index 2b9479db58d9b4e5f07c0301033657d449475c75..641a917ee25cb9ced753deb12a5519d2e6bc45f5 100644 (file)
@@ -92,7 +92,7 @@ sub enabledebug () {
 }
     
 sub printdebug {
-    print ::DEBUG $debugprefix, @_ or die $!;
+    print ::DEBUG $debugprefix, @_ or die $! if $debug>0;
 }
 
 sub shellquote {