diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-05-04 17:42:44 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-05-31 11:54:10 +0100 |
commit | 8c58335913e7ec0465a939a9a277e7fbd0df68e0 (patch) | |
tree | 42938c21e9e43b78e73fd1a9f02bba2985ff0a88 | |
parent | f82da50bcda81c6b3751e172dc943d4c348f4f72 (diff) |
dgit-repos-policy-debian: WIP bugfixes to debugging
-rw-r--r-- | Debian/Dgit.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm index f68ebd2..112d15b 100644 --- a/Debian/Dgit.pm +++ b/Debian/Dgit.pm @@ -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(); } |