diff options
| -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 |