summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/CPAN/Index.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CPAN/Index.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/CPAN/Index.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/Master/tlpkg/tlperl/lib/CPAN/Index.pm b/Master/tlpkg/tlperl/lib/CPAN/Index.pm
index af98d7bf15c..c338cc7ec7b 100644
--- a/Master/tlpkg/tlperl/lib/CPAN/Index.pm
+++ b/Master/tlpkg/tlperl/lib/CPAN/Index.pm
@@ -126,7 +126,7 @@ sub reanimate_build_dir {
my @candidates = map { $_->[0] }
sort { $b->[1] <=> $a->[1] }
map { [ $_, -M File::Spec->catfile($d,$_) ] }
- grep {/\.yml$/} readdir $dh;
+ grep {/(.+)\.yml$/ && -d File::Spec->catfile($d,$1)} readdir $dh;
unless (@candidates) {
$CPAN::Frontend->myprint("Build_dir empty, nothing to restore\n");
return;