devel/devtools.pl: Print out perls in this run if debug

(cherry picked from commit 2514f0d3f4ea2ce02304660effec31b9e17c079c)
Signed-off-by: Nicolas R <atoomic@cpan.org>

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;
 }