From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 13 Sep 2003 18:33:41 +0000 (+0000)
Subject: parse_version doesn't always succeed.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0ac6c0fdd3a6e15e8784a797d64e94c255fde012;p=p5sagit%2Fp5-mst-13.2.git

parse_version doesn't always succeed.

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

diff --git a/Porting/cmpVERSION.pl b/Porting/cmpVERSION.pl
index 1364e1d..052051c 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;
 
-