perldelta updates

[perl5.git] / Porting / manicheck

diff --git a/Porting/manicheck b/Porting/manicheck
index 0439292..1b506d9 100644 (file)
--- a/Porting/manicheck
+++ b/Porting/manicheck
@@ -1,5 +1,9 @@
 #!/usr/bin/perl
 
+# output a list of:
+#  a) files listed in MANIFEST which don't exist
+#  b) files which exist but which aren't in MANIFEST
+
 use strict;
 use warnings;
 use File::Find;
@@ -15,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};
     },
 }, ".";