From 5805198637ef23ec8d8303f4b3b1b7a0df188309 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sat, 2 May 2015 19:28:54 +0100 Subject: Rename $debug variable to $debuglevel (nfc) --- Debian/Dgit.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'Debian') diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm index 641a917..e09d12f 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 $debug + $debugprefix $debuglevel shellquote printcmd); %EXPORT_TAGS = ( policyflags => [qw(NOFFCHECK FRESHREPO)] ); @EXPORT_OK = @{ $EXPORT_TAGS{policyflags} }; @@ -78,7 +78,7 @@ sub git_for_each_tag_referring ($$) { } our $debugprefix; -our $debug = 0; +our $debuglevel = 0; sub initdebug ($) { ($debugprefix) = @_; @@ -88,11 +88,11 @@ sub initdebug ($) { sub enabledebug () { open ::DEBUG, ">&STDERR" or die $!; ::DEBUG->autoflush(1); - $debug ||= 1; + $debuglevel ||= 1; } sub printdebug { - print ::DEBUG $debugprefix, @_ or die $! if $debug>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 $debug>0; + printcmd(\*::DEBUG,$debugprefix.$extraprefix,@_) if $debuglevel>0; } 1; -- cgit v1.2.3