This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Tweak from Slaven to catch also changed .xs files
authorJarkko Hietaniemi <jhi@iki.fi>
Thu, 14 Aug 2003 06:51:34 +0000 (06:51 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 14 Aug 2003 06:51:34 +0000 (06:51 +0000)
(.pm -> .xs name equivalence is assumed)

p4raw-id: //depot/perl@20696

Porting/cmpVERSION.pl

index 8d76fa8..1364e1d 100644 (file)
@@ -34,7 +34,14 @@ find(
               &&
               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