diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-05-02 20:33:10 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-05-31 11:54:09 +0100 |
commit | 41d1bd6a6c194f11f906e1140861e976fac3f4e0 (patch) | |
tree | 5e44292c499fae0072107714504fcc8ae181ab07 /Debian | |
parent | c02c4c21a1ae474acf22b09b400081d4e21fb149 (diff) |
dgit-repos-policy-debian: Add debugging output
Diffstat (limited to 'Debian')
-rw-r--r-- | Debian/Dgit.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm index f166f11..e2a503d 100644 --- a/Debian/Dgit.pm +++ b/Debian/Dgit.pm @@ -17,7 +17,8 @@ BEGIN { @EXPORT = qw(debiantag server_branch server_ref stat_exists git_for_each_ref $package_re $component_re $branchprefix - initdebug enabledebug printdebug debugcmd + initdebug enabledebug enabledebuglevel + printdebug debugcmd $debugprefix *debuglevel *DEBUG shellquote printcmd); %EXPORT_TAGS = ( policyflags => [qw(NOFFCHECK FRESHREPO)] ); @@ -91,6 +92,12 @@ sub enabledebug () { $debuglevel ||= 1; } +sub enabledebuglevel ($) { + die if $debuglevel; + ($debuglevel) = @_ + 0; + enabledebug(); +} + sub printdebug { print DEBUG $debugprefix, @_ or die $! if $debuglevel>0; } |