This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
devel/devtools.pl: Print out perls in this run if debug
authorKarl Williamson <khw@cpan.org>
Wed, 10 Jul 2019 23:33:56 +0000 (17:33 -0600)
committerNicolas 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

index f6ee3c0..5799ecf 100644 (file)
@@ -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;
 }