From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 14 Aug 2003 06:51:34 +0000 (+0000)
Subject: Tweak from Slaven to catch also changed .xs files
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=780d3752e0edd2b2a24e5d4ecf3adb46329832eb;p=p5sagit%2Fp5-mst-13.2.git

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

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

diff --git a/Porting/cmpVERSION.pl b/Porting/cmpVERSION.pl
index 8d76fa8..1364e1d 100644
--- a/Porting/cmpVERSION.pl
+++ b/Porting/cmpVERSION.pl
@@ -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