diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-13 18:33:41 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-13 18:33:41 +0000 |
| commit | 0ac6c0fdd3a6e15e8784a797d64e94c255fde012 (patch) | |
| tree | c3fce493a3e98c09c5d8f557aa38d3774e32bb71 /Porting | |
| parent | 4d737ff813fca9402d7f7b91391b73ea4e18b188 (diff) | |
| download | perl-0ac6c0fdd3a6e15e8784a797d64e94c255fde012.tar.gz | |
parse_version doesn't always succeed.
p4raw-id: //depot/perl@21214
Diffstat (limited to 'Porting')
| -rw-r--r-- | Porting/cmpVERSION.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Porting/cmpVERSION.pl b/Porting/cmpVERSION.pl index 1364e1d4ff..052051c3d2 100644 --- a/Porting/cmpVERSION.pl +++ b/Porting/cmpVERSION.pl @@ -45,8 +45,9 @@ find( 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; - |