bench.pl: factor out some common code

[perl5.git] / Porting / manicheck

diff --git a/Porting/manicheck b/Porting/manicheck
index 2620943..b544a12 100644 (file)
--- a/Porting/manicheck
+++ b/Porting/manicheck
@@ -8,7 +8,7 @@ use strict;
 use warnings;
 use File::Find;
 
-open my $fh, 'MANIFEST' or die "Can't read MANIFEST: $!\n";
+open my $fh, '<', 'MANIFEST' or die "Can't read MANIFEST: $!\n";
 my @files = map { (split)[0] } <$fh>;
 close $fh;
 for (@files) {
@@ -21,7 +21,7 @@ find {
         return if -d;
         return if $_ eq '.gitignore';
         return if $x =~ /^\.git\b/;
-        print "$File::Find::name not in MANIFEST\n" if !$files{$x};
+        print "$x\t\tnot in MANIFEST\n" if !$files{$x};
     },
 }, ".";