diff options
| -rw-r--r-- | Porting/manicheck | 17 |
1 files changed, 11 insertions, 6 deletions
diff --git a/Porting/manicheck b/Porting/manicheck index 20125d8cf8..e2a33ec678 100644 --- a/Porting/manicheck +++ b/Porting/manicheck @@ -36,10 +36,17 @@ help() if $h; open(MANIFEST, "MANIFEST") or die "MANIFEST: $!"; my %mani; +my %mand = qw(. 1); +use File::Basename qw(dirname); while (<MANIFEST>) { if (/^(\S+)\t+(.+)$/) { $mani{$1}++; + my $d = dirname($1); + while($d ne '.') { + $mand{$d}++; + $d = dirname($d); + } } else { warn "MANIFEST:$.:$_"; } @@ -50,18 +57,16 @@ close(MANIFEST); my %find; use File::Find; find(sub { - if(-f $_) { - my $f = $File::Find::name; - $f =~ s:^\./::; - $find{$f}++; - } + my $n = $File::Find::name; + $n =~ s:^\./::; + $find{$n}++; }, '.' ); my @xtra; my @miss; for (sort keys %find) { - push @xtra, $_ unless $mani{$_}; + push @xtra, $_ unless $mani{$_} || $mand{$_}; } for (sort keys %mani) { |