diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-14 05:21:20 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-14 05:21:20 +0000 |
| commit | 88830c88431d18029575b23c5ab19a81d9b88f19 (patch) | |
| tree | 28c67586a81ffa2472d1b6dc997c591182f5a464 /Porting/cmpVERSION.pl | |
| parent | 35860eb2be7ed71dad771e9809bf6d609674d1b4 (diff) | |
| download | perl-88830c88431d18029575b23c5ab19a81d9b88f19.tar.gz | |
Add a known exception.
p4raw-id: //depot/perl@20691
Diffstat (limited to 'Porting/cmpVERSION.pl')
| -rw-r--r-- | Porting/cmpVERSION.pl | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/Porting/cmpVERSION.pl b/Porting/cmpVERSION.pl index b33547669c..8d76fa89f8 100644 --- a/Porting/cmpVERSION.pl +++ b/Porting/cmpVERSION.pl @@ -22,9 +22,16 @@ for (@ARGV[0, 1]) { my $dir2 = rel2abs($ARGV[1]); chdir $ARGV[0] or die "$0: chdir '$ARGV[0]' failed: $!\n"; +# Files to skip from the check for one reason or another, +# usually because they pull in their version from some other file. +my %skip; +@skip{'./lib/Exporter/Heavy.pm'} = (); + my @wanted; find( sub { /\.pm$/ && + ! exists $skip{$File::Find::name} + && do { my $file2 = catfile(catdir($dir2, $File::Find::dir), $_); return if compare($_, $file2) == 0; |