|| exists $rval{signal}
|| ($rval{status} && @{$rval{stderr}})
|| ($opt{debug} && @{$rval{stderr}})
-
- # verbose increases likelihood of output
- || ($opt{debug} && $opt{verbose} && @{$rval{stdout}}))
+ || ($opt{debug} > 2 && @{$rval{stdout}}))
{
print STDERR "Returning\n", Dumper \%rval;
# ppport.h, so we get, as patched by ppport.h, what gets added when
GetOptions(\%opt, qw( base check! verbose install=s blead=s blead-version=s
- debug debug-start=s)) or die;
+ debug=i debug-start=s)) or die;
identify();
push @args, '--blead' if $_ == $perls_ref->[0]; # First one is blead
push @args, '--todo', $_->{'todo'};
push @args, '--base' if $opt{base};
- push @args, '--debug' if $opt{debug};
+ push @args, "--debug=$opt{debug}" if $opt{debug};
push @args, '--verbose' if $opt{verbose};
push @args, '--nocheck' unless $opt{check};
runperl('devel/mktodo.pl', @args) or die "error running mktodo.pl [$!] [$?]\n";
our %opt = (
blead => 0, # ? Is this perl blead
- debug => 0, # Adding --verbose increases the detail
+ debug => 0,
base => 0, # Don't use ppport.h when generating
verbose => 0,
check => 1,
);
GetOptions(\%opt, qw(
-perl=s todo=s blead version=s shlib=s debug base verbose check!
+perl=s todo=s blead version=s shlib=s debug=i base verbose check!
)) or die;
identify();
);
GetOptions(\%opt, qw( check! verbose install=s blead=s blead-version=s
- debug debug-start=s)) or die pod2usage();
+ debug=i debug-start=s)) or die pod2usage();
identify();
}
my @perlargs;
-push @perlargs, "--debug" if $opt{debug};
+push @perlargs, "--debug=$opt{debug}" if $opt{debug};
push @perlargs, "--install=$opt{install}" if $opt{install};
push @perlargs, "--blead=$opt{blead}" if $opt{blead};
push @perlargs, "--debug-start=$opt{'debug-start'}" if $opt{'debug-start'};
'debug-start' => "",
);
-GetOptions(\%opt, qw( install=s mode=s blead=s debug debug-start=s)) or die;
+GetOptions(\%opt, qw( install=s mode=s blead=s debug=i debug-start=s)) or die;
my $write = $opt{mode} eq 'write';