This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Change --debug option to have levels of detail
authorKarl Williamson <khw@cpan.org>
Tue, 6 Aug 2019 22:03:38 +0000 (16:03 -0600)
committerNicolas R <atoomic@cpan.org>
Fri, 27 Sep 2019 22:39:32 +0000 (16:39 -0600)
(cherry picked from commit d62bda55bbfa2de367141dce1774eed7db9c3b64)
Signed-off-by: Nicolas R <atoomic@cpan.org>
dist/Devel-PPPort/devel/devtools.pl
dist/Devel-PPPort/devel/mktodo
dist/Devel-PPPort/devel/mktodo.pl
dist/Devel-PPPort/devel/regenerate
dist/Devel-PPPort/devel/scanprov

index 3f24595..4e4fa21 100644 (file)
@@ -89,9 +89,7 @@ sub run
       ||  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;
 
index 800a7cc..88b9eb6 100755 (executable)
@@ -52,7 +52,7 @@ our %opt = (
 # 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();
 
@@ -68,7 +68,7 @@ for (@${perls_ref}) {
   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";
index 43357ec..077de09 100644 (file)
@@ -28,7 +28,7 @@ require './devel/devtools.pl';
 
 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,
@@ -37,7 +37,7 @@ our %opt = (
 );
 
 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();
index 4d81859..63718db 100755 (executable)
@@ -29,7 +29,7 @@ our %opt = (
 );
 
 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();
 
@@ -80,7 +80,7 @@ for my $dir (qw( base todo )) {
 }
 
 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'};
index 48e287f..85da7f7 100755 (executable)
@@ -29,7 +29,7 @@ our %opt = (
  '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';