Change 20691 by [EMAIL PROTECTED] on 2003/08/14 05:21:20
Add a known exception.
Affected files ...
... //depot/perl/Porting/cmpVERSION.pl#2 edit
Differences ...
==== //depot/perl/Porting/cmpVERSION.pl#2 (text) ====
Index: perl/Porting/cmpVERSION.pl
--- perl/Porting/cmpVERSION.pl#1~20678~ Wed Aug 13 06:46:18 2003
+++ perl/Porting/cmpVERSION.pl Wed Aug 13 22:21:20 2003
@@ -22,9 +22,16 @@
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;
[EMAIL PROTECTED]'./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;
End of Patch.
