chiark / gitweb /
dgit-repos-policy-debian: WIP bugfixes to debugging
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Mon, 4 May 2015 16:42:44 +0000 (17:42 +0100)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 31 May 2015 10:54:10 +0000 (11:54 +0100)
Debian/Dgit.pm

index f68ebd2..112d15b 100644 (file)
@@ -93,8 +93,12 @@ sub enabledebug () {
 }
     
 sub enabledebuglevel ($) {
+    my ($newlevel) = @_; # may be undef (eg from env var)
     die if $debuglevel;
-    $debuglevel = $_[0] + 0;
+    $newlevel //= 0;
+    $newlevel += 0;
+    return unless $newlevel;
+    $debuglevel = $newlevel;
     enabledebug();
 }