From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 4 May 2015 16:35:40 +0000 (+0100)
Subject: dgit-repos-policy-debian: WIP bugfixes to debugging
X-Git-Tag: debian/0.30~184
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=commitdiff_plain;h=f82da50bcda81c6b3751e172dc943d4c348f4f72;hp=f5fbed52cee73ceb72984a0f529a6444501432bd

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

diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm
index f33b173c..f68ebd22 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 ce98cd72..67975bd7 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 de01a53b..1574669a 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