From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 14 Aug 2003 05:21:20 +0000 (+0000)
Subject: Add a known exception.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=88830c88431d18029575b23c5ab19a81d9b88f19;p=p5sagit%2Fp5-mst-13.2.git

Add a known exception.

p4raw-id: //depot/perl@20691
---

diff --git a/Porting/cmpVERSION.pl b/Porting/cmpVERSION.pl
index b335476..8d76fa8 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;