Change 20696: Tweak from Slaven to catch also changed .xs files

[Jarkko Hietaniemi]

Change 20696 by [EMAIL PROTECTED] on 2003/08/14 06:51:34

        Tweak from Slaven to catch also changed .xs files
        (.pm -> .xs name equivalence is assumed)

Affected files ...

... //depot/perl/Porting/cmpVERSION.pl#3 edit

Differences ...

==== //depot/perl/Porting/cmpVERSION.pl#3 (text) ====
Index: perl/Porting/cmpVERSION.pl
--- perl/Porting/cmpVERSION.pl#2~20691~ Wed Aug 13 22:21:20 2003
+++ perl/Porting/cmpVERSION.pl  Wed Aug 13 23:51:34 2003
@@ -34,7 +34,14 @@
               &&
               do { my $file2 =
                        catfile(catdir($dir2, $File::Find::dir), $_);
-                   return if compare($_, $file2) == 0;
+                   (my $xs_file1 = $_)     =~ s/\.pm$/.xs/;
+                   (my $xs_file2 = $file2) =~ s/\.pm$/.xs/;
+                   if (-e $xs_file1 && -e $xs_file2) {
+                       return if compare($_, $file2) == 0 &&
+                                 compare($xs_file1, $xs_file2) == 0;
+                   } else {
+                       return if compare($_, $file2) == 0;
+                   }
                    my $version1 = eval {MM->parse_version($_)};
                    my $version2 = eval {MM->parse_version($file2)};
                    push @wanted, $File::Find::name
End of Patch.