@@ -9,17 +9,23 @@ GetOptions ( "-w" => \$opt_w, ) or die "usage: metagrep [-w] pattern\n"; +use Cwd qw(getcwd abs_path); use File::Find; my $pat = shift or die "usage: metagrep pattern\n"; $opt_w and $pat = "\\b$pat\\b"; $pat = qr/$pat/i; +my $cwd = getcwd; +my $mcpath = abs_path "/pro/3gl/CPAN/metaconfig" or die "cannot cd metaconfig\n"; + +my $onmeta = $cwd =~ m{CPAN/meta[^/]+$} ? 1 : 0; + my %dir; # I don't want a file for which any path component symlinks find (sub { -l and return; -d and $dir{$File::Find::name}++; - }, "metaconfig"); + }, $mcpath); print STDERR "<$pat>\n"; find (sub { @@ -31,5 +37,7 @@ find (sub { #print STDERR "$File::Find::dir - $_\n"; open my $f, "<$_" or die "$File::Find::name: $!\n"; - print map { "$File::Find::name:$_" } grep /$pat/, <$f>; - }, "metaconfig"); + my $fnm = $File::Find::name; + $fnm =~ s{^$cwd/}{}; + print map { "$fnm:$_" } grep /$pat/, <$f>; + }, $mcpath); bin/metagrep a4b2cf0d0991e1486da6fd9dc47033526ffe8f95 H.Merijn Brand merijn@nb09.procura.nl http://github.com/github/metaconfig/commit/2fcd353c9f553d123d58367aa8c0b396629b2b76 2fcd353c9f553d123d58367aa8c0b396629b2b76 2008-09-29T08:48:45-07:00 2008-09-29T08:48:45-07:00 metaconfig is now a symlink on my development env 3115ed6e4ae411508452fb7cc6f62fd72915736f H.Merijn Brand merijn@nb09.procura.nl