dgit-repos-policy-debian: WIP bugfixes to debugging

diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm
index f33b173ca9bdac1424757b1d7c3adb022bda57da..f68ebd228366676e97e4921bcffd6446bf6345c9 100644 (file)
--- 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 ce98cd72e46bfa104cf57182037dfb09d8f8a51b..67975bd7ab0fffb4dcc51aa735accbd962a71bda 100755 (executable)
--- 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 de01a53b329cbb7d89a75fd3f295e37e093e3cf1..1574669a618868f950bc9c2cc993ce852c9dc8c4 100755 (executable)
--- 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