This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Prevent errors when run outside metaconfig folder
authorH.Merijn Brand <perl5@tux.freedom.nl>
Sat, 24 Oct 2020 10:21:01 +0000 (12:21 +0200)
committerH.Merijn Brand <perl5@tux.freedom.nl>
Sat, 24 Oct 2020 10:21:01 +0000 (12:21 +0200)
bin/metagrep

index 0f10e20..4e0e81d 100755 (executable)
@@ -26,7 +26,7 @@ my $cwd    = getcwd;
 my $mcpath = abs_path "$FindBin::Bin/../";
 my $onmeta = $cwd =~ m{CPAN/meta[^/]+$} ? 1 : 0;
 
-my @dir = ($mcpath, $onmeta ? "dist/U" : "$mcpath/dist/U");
+my @dir = grep { -d } $mcpath, $onmeta ? "dist/U" : "$mcpath/dist/U";
 my %dir; # I don't want a file for which any path component symlinks
 find (sub {
     -l and return;