This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
When on meta don't expand the foldername to search
authorH.Merijn Brand - Tux <h.m.brand@xs4all.nl>
Thu, 12 Apr 2018 13:02:53 +0000 (15:02 +0200)
committerH.Merijn Brand - Tux <h.m.brand@xs4all.nl>
Thu, 12 Apr 2018 13:02:53 +0000 (15:02 +0200)
bin/metagrep

index aa7783d..0f10e20 100755 (executable)
@@ -13,7 +13,7 @@ GetOptions (
     "F|fixed!" => \$opt_F,
     ) or die "usage: metagrep [-w] [-l] [-F] pattern\n";
 
-use Cwd qw(getcwd);
+use Cwd qw(getcwd abs_path);
 use File::Find;
 use FindBin;
 
@@ -23,10 +23,10 @@ $opt_w and $pat = "\\b$pat\\b";
 $pat = qr/$pat/i;
 
 my $cwd    = getcwd;
-my $mcpath = "$FindBin::Bin/../";
+my $mcpath = abs_path "$FindBin::Bin/../";
 my $onmeta = $cwd =~ m{CPAN/meta[^/]+$} ? 1 : 0;
 
-my @dir = ($mcpath, "$mcpath/dist/U");
+my @dir = ($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;