From: Karl Williamson <khw@cpan.org>
Date: Tue, 25 Jun 2019 17:41:31 +0000 (-0600)
Subject: devel/mktodo: Fix location of old perls
X-Git-Tag: v5.31.5~254
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/604741717de689cf9e674e829f91abf3da249599?hp=94707fc7a1dcad8d19e74d75b86b8bcc99811065

devel/mktodo: Fix location of old perls

This had an extra layer of directory structure beyond what typical
places old perls are kept.

A future commit allows specifying mutiple directories on the command
line, which gives full generality.

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

diff --git a/dist/Devel-PPPort/devel/mktodo b/dist/Devel-PPPort/devel/mktodo
index 2eb9ea3..1cec427 100755
--- a/dist/Devel-PPPort/devel/mktodo
+++ b/dist/Devel-PPPort/devel/mktodo
@@ -35,7 +35,7 @@ my $outdir = 'parts/todo';
 
 my @perls = sort { $b->{version} <=> $a->{version} }
             map { { version => `$_ -e 'printf "%.6f", \$]'`, path => $_ } }
-            ($opt{blead}, grep !/-RC\d+/, glob "$opt{install}/*/bin/perl5.*");
+            ($opt{blead}, grep !/-RC\d+/, glob "$opt{install}/bin/perl5.*");
 
 if (exists $opt{'blead-version'}) {
   $perls[0]{version} = $opt{'blead-version'};