This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add --debug option
authorKarl Williamson <khw@cpan.org>
Wed, 10 Jul 2019 23:32:37 +0000 (17:32 -0600)
committerNicolas R <atoomic@cpan.org>
Fri, 27 Sep 2019 22:39:32 +0000 (16:39 -0600)
This option already existed in an inner script, but you couldn't specify
it from an outer one, which would be the typical way that got called.

(cherry picked from commit aefd7c471b5018d9f65cdb44559f743b56580405)
Signed-off-by: Nicolas R <atoomic@cpan.org>
dist/Devel-PPPort/devel/mktodo
dist/Devel-PPPort/devel/regenerate

index 1f48e16..800a7cc 100755 (executable)
@@ -28,6 +28,7 @@ our %opt = (
   verbose => 0,
   install => '/tmp/perl/install/default',
   blead   => 'bleadperl-debug',
+  debug   => 0,
  'debug-start' => "",   # build an incomplete output, starting with the
                         # specified perl of the form perl5.xxxyyy
 );
@@ -51,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-start=s)) or die;
+                      debug debug-start=s)) or die;
 
 identify();
 
@@ -67,6 +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, '--verbose' if $opt{verbose};
   push @args, '--nocheck' unless $opt{check};
   runperl('devel/mktodo.pl', @args) or die "error running mktodo.pl [$!] [$?]\n";
index 11f751c..8b2f8bd 100755 (executable)
@@ -24,11 +24,12 @@ require './devel/devtools.pl';
 
 our %opt = (
   check   => 1,
+  debug   => 0,
   verbose => 0,
 );
 
 GetOptions(\%opt, qw( check! verbose install=s blead=s blead-version=s
-                      debug-start=s)) or die pod2usage();
+                      debug debug-start=s)) or die pod2usage();
 
 identify();
 
@@ -79,6 +80,7 @@ for my $dir (qw( base todo )) {
 }
 
 my @perlargs;
+push @perlargs, "--debug" if $opt{debug};
 push @perlargs, "--install=$opt{install}" if exists $opt{install};
 push @perlargs, "--blead=$opt{blead}" if exists $opt{blead};
 push @perlargs, "--debug-start=$opt{'debug-start'}" if $opt{'debug-start'};