diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-05-02 19:56:08 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-05-31 11:54:09 +0100 |
commit | 89506141b188407123bf605d2b051f2dfa10ad4b (patch) | |
tree | 16f5843dd3a635818da8d30c839d0e75cf2a0a0c /Debian/Dgit.pm | |
parent | 5805198637ef23ec8d8303f4b3b1b7a0df188309 (diff) |
Debugging: use typeglobs to simplify various things (nfc)
Diffstat (limited to 'Debian/Dgit.pm')
-rw-r--r-- | Debian/Dgit.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm index e09d12f..f166f11 100644 --- a/Debian/Dgit.pm +++ b/Debian/Dgit.pm @@ -18,7 +18,7 @@ BEGIN { stat_exists git_for_each_ref $package_re $component_re $branchprefix initdebug enabledebug printdebug debugcmd - $debugprefix $debuglevel + $debugprefix *debuglevel *DEBUG shellquote printcmd); %EXPORT_TAGS = ( policyflags => [qw(NOFFCHECK FRESHREPO)] ); @EXPORT_OK = @{ $EXPORT_TAGS{policyflags} }; @@ -82,17 +82,17 @@ our $debuglevel = 0; sub initdebug ($) { ($debugprefix) = @_; - open ::DEBUG, ">/dev/null" or die $!; + open DEBUG, ">/dev/null" or die $!; } sub enabledebug () { - open ::DEBUG, ">&STDERR" or die $!; - ::DEBUG->autoflush(1); + open DEBUG, ">&STDERR" or die $!; + DEBUG->autoflush(1); $debuglevel ||= 1; } sub printdebug { - print ::DEBUG $debugprefix, @_ or die $! if $debuglevel>0; + print DEBUG $debugprefix, @_ or die $! if $debuglevel>0; } sub shellquote { @@ -120,7 +120,7 @@ sub printcmd { sub debugcmd { my $extraprefix = shift @_; - printcmd(\*::DEBUG,$debugprefix.$extraprefix,@_) if $debuglevel>0; + printcmd(\*DEBUG,$debugprefix.$extraprefix,@_) if $debuglevel>0; } 1; |