This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
c25a73d
)
devel/devtools.pl: Print out perls in this run if debug
author
Karl Williamson
<khw@cpan.org>
Wed, 10 Jul 2019 23:33:56 +0000
(17:33 -0600)
committer
Nicolas R
<atoomic@cpan.org>
Fri, 27 Sep 2019 22:39:32 +0000
(16:39 -0600)
(cherry picked from commit
2514f0d3f4ea2ce02304660effec31b9e17c079c
)
Signed-off-by: Nicolas R <atoomic@cpan.org>
dist/Devel-PPPort/devel/devtools.pl
patch
|
blob
|
blame
|
history
diff --git
a/dist/Devel-PPPort/devel/devtools.pl
b/dist/Devel-PPPort/devel/devtools.pl
index
f6ee3c0
..
5799ecf
100644
(file)
--- a/
dist/Devel-PPPort/devel/devtools.pl
+++ b/
dist/Devel-PPPort/devel/devtools.pl
@@
-15,6
+15,8
@@
#
################################################################################
+use Data::Dumper;
+$Data::Dumper::Sortkeys = 1;
use IO::File;
require "./parts/inc/inctools";
@@
-211,6
+213,10
@@
sub get_and_sort_perls($)
$perls[$i]{todo} = $perls[$i-1]{file};
}
+ if ($opt{debug}) {
+ print STDERR "The perls returned are: ", Dumper \@perls;
+ }
+
return \@perls;
}