diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-14 06:51:34 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-14 06:51:34 +0000 |
| commit | 780d3752e0edd2b2a24e5d4ecf3adb46329832eb (patch) | |
| tree | 89a4837225fb65c8df26722e491cb5070e8b3eb5 /Porting | |
| parent | ad5cfffd5b8b7fe37ed57e620649fd13610a07d1 (diff) | |
| download | perl-780d3752e0edd2b2a24e5d4ecf3adb46329832eb.tar.gz | |
Tweak from Slaven to catch also changed .xs files
(.pm -> .xs name equivalence is assumed)
p4raw-id: //depot/perl@20696
Diffstat (limited to 'Porting')
| -rw-r--r-- | Porting/cmpVERSION.pl | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/Porting/cmpVERSION.pl b/Porting/cmpVERSION.pl index 8d76fa89f8..1364e1d4ff 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 |