diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-05-04 17:35:40 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-05-31 11:54:10 +0100 |
commit | f82da50bcda81c6b3751e172dc943d4c348f4f72 (patch) | |
tree | 922038d927a59c49abf7f031d1cea1ea2a9a768a | |
parent | f5fbed52cee73ceb72984a0f529a6444501432bd (diff) |
dgit-repos-policy-debian: WIP bugfixes to debugging
-rw-r--r-- | Debian/Dgit.pm | 2 | ||||
-rwxr-xr-x | infra/dgit-repos-policy-debian | 2 | ||||
-rwxr-xr-x | tests/tests/debpolicy-newreject | 2 |
3 files changed, 2 insertions, 4 deletions
diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm index f33b173..f68ebd2 100644 --- a/Debian/Dgit.pm +++ b/Debian/Dgit.pm @@ -94,7 +94,7 @@ sub enabledebug () { sub enabledebuglevel ($) { die if $debuglevel; - ($debuglevel) = @_ + 0; + $debuglevel = $_[0] + 0; enabledebug(); } diff --git a/infra/dgit-repos-policy-debian b/infra/dgit-repos-policy-debian index ce98cd7..67975bd 100755 --- a/infra/dgit-repos-policy-debian +++ b/infra/dgit-repos-policy-debian @@ -91,7 +91,7 @@ sub apiquery ($) { defined $json or die "$subpath $! $?"; my $r = decode_json $json; my $d = new Data::Dumper([$r], [qw(r)]); - printdebug "apiquery $subpath | ", $d->Dump(), "\n" if $debuglevel>=2; + printdebug "apiquery $subpath | ", $d->Dump() if $debuglevel>=2; return $r; } diff --git a/tests/tests/debpolicy-newreject b/tests/tests/debpolicy-newreject index de01a53..1574669 100755 --- a/tests/tests/debpolicy-newreject +++ b/tests/tests/debpolicy-newreject @@ -2,8 +2,6 @@ set -e . tests/lib -export DGIT_DRS_DEBUG=1 - t-debpolicy t-prep-newpackage pari-extra 3.1 |