X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/a7d002a11216fa10d2d93aff87fec9eea46a32ff..306088923cdcc7ca31da4d0eddf4f8e4b169b3e7:/Porting/manicheck diff --git a/Porting/manicheck b/Porting/manicheck index 9fff861..1b506d9 100644 --- a/Porting/manicheck +++ b/Porting/manicheck @@ -19,9 +19,9 @@ find { wanted => sub { my $x = $File::Find::name; $x =~ s/^..//; return if -d; - return if $_ eq '.gitignore'; - return if $x =~ /^\.git\b/; - print "$File::Find::name not in MANIFEST\n" if !$files{$x}; + return if $_ eq '.gitignore'; + return if $x =~ /^\.git\b/; + print "$x\t\tnot in MANIFEST\n" if !$files{$x}; }, }, ".";