diff options
Diffstat (limited to 'Debian')
| -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; |