MANIFEST files should contain, from what I understood, something along the lines of: path/to/file mode description

Where mode is the decimal mode the file should be chmod'ed.

Total number of MANIFEST files:

use strict;
use warnings;
use Carp qw(croak);
use File::Find qw(find);
my ( %manifest, %chmod, %NEW );

sub checkManifest {
    my $file     = $_[0];
    my $fullfile = $_[1];
    $manifest{$fullfile}++;
    open my $fh, "<", $file or croak "Can't open $file: $!";
    while (<$fh>) {
        $chmod{$fullfile}++ if /^\S+\s+\d{4}/;
        $NEW{$fullfile}++   if /^\S+\s+NEW/;
    }
    close $fh;
}
find(
    sub {
        /^MANIFEST$/
          && checkManifest( $_, $File::Find::name );
    },
    "."
);
print "MANIFEST: " . scalar( keys %manifest ) . "\n";
print "chmod: " . scalar( keys %chmod ) . "\n";
print "NEW: " . scalar( keys %NEW ) . "\n";

Output as of today:

MANIFEST: 367
chmod: 172
NEW: 122

-- OlivierRaginel - 22/23 Nov 2008

Edited the code to make SvenDowideit happy with perlcritic.

---

This topic: Tasks > Item249
Topic revision: 11 Dec 2008, UnknownUser

---