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} };
}
our $debugprefix;
-our $debug = 0;
+our $debuglevel = 0;
sub initdebug ($) {
($debugprefix) = @_;
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 {
sub debugcmd {
my $extraprefix = shift @_;
- printcmd(\*::DEBUG,$debugprefix.$extraprefix,@_) if $debug>0;
+ printcmd(\*::DEBUG,$debugprefix.$extraprefix,@_) if $debuglevel>0;
}
1;
if (!close P) { printdebug "=>!$?\n"; return undef; }
chomp $d;
$d =~ m/^.*/;
- printdebug "=> \`$&'",(length $' ? '...' : ''),"\n" if $debug>0; #';
+ printdebug "=> \`$&'",(length $' ? '...' : ''),"\n" if $debuglevel>0; #';
return $d;
}
my @cmd = (@git, qw(config --), $c);
my $v;
{
- local ($Debian::Dgit::debug) = $debug-1;
- *debug = *Debian::Dgit::debug; # nnng
+ local ($Debian::Dgit::debuglevel) = $debuglevel-1;
+ *debug = *Debian::Dgit::debuglevel; # nnng
$v = cmdoutput_errok @cmd;
};
if ($?==0) {
" archive told us to expect $digest";
}
my $dscfh = new IO::File \$dscdata, '<' or die $!;
- printdebug Dumper($dscdata) if $debug>1;
+ printdebug Dumper($dscdata) if $debuglevel>1;
$dsc = parsecontrolfh($dscfh,$dscurl,1);
- printdebug Dumper($dsc) if $debug>1;
+ printdebug Dumper($dsc) if $debuglevel>1;
my $fmt = getfield $dsc, 'Format';
fail "unsupported source format $fmt, sorry" unless $format_ok{$fmt};
$dsc_checked = !!$digester;
$dscpath =~ m#^/# ? $dscpath : "../../../$dscpath";
my ($tree,$dir) = mktree_in_ud_from_only_subdir();
changedir '../../../..';
- my $diffopt = $debug>0 ? '--exit-code' : '--quiet';
+ my $diffopt = $debuglevel>0 ? '--exit-code' : '--quiet';
my @diffcmd = (@git, qw(diff), $diffopt, $tree);
debugcmd "+",@diffcmd;
$!=0; $?=0;
cmd_help();
} elsif (s/^-D/-/) {
push @ropts, $&;
- $debug++;
+ $debuglevel++;
enabledebug();
} elsif (s/^-N/-/) {
push @ropts, $&;