Upgrade to ExtUtils::CBuilder 0.12 and ExtUtils::ParseXS 2.10

[p5sagit/p5-mst-13.2.git] / Porting / cmpVERSION.pl

diff --git a/Porting/cmpVERSION.pl b/Porting/cmpVERSION.pl
index 8d76fa8..052051c 100644 (file)
--- a/Porting/cmpVERSION.pl
+++ b/Porting/cmpVERSION.pl
@@ -34,12 +34,20 @@ 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
-                       if $version1 eq $version2
+                       if defined $version1 &&
+                          defined $version2 &&
+                           $version1 eq $version2
                } }, curdir);
 print map { $_, "\n" } sort @wanted;
 
-