From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 25 Jul 1999 17:40:03 +0000 (+0000)
Subject: warn rather than die when parse_version() can't cut it (from
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5a5fd53e43b48f35b38a43c4d603ec19116e12f8;p=p5sagit%2Fp5-mst-13.2.git

warn rather than die when parse_version() can't cut it (from
Michael G Schwern <schwern@pobox.com>)

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

diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm
index 282d471..248ad8b 100644
--- a/lib/ExtUtils/MM_Unix.pm
+++ b/lib/ExtUtils/MM_Unix.pm
@@ -2673,7 +2673,9 @@ sub nicetext {
 
 =item parse_version
 
-parse a file and return what you think is $VERSION in this file set to
+parse a file and return what you think is $VERSION in this file set to.
+It will return the string "undef" if it can't figure out what $VERSION
+is.
 
 =cut
 
@@ -2701,7 +2703,7 @@ sub parse_version {
 	};
 	local($^W) = 0;
 	$result = eval($eval);
-	die "Could not eval '$eval' in $parsefile: $@" if $@;
+	warn "Could not eval '$eval' in $parsefile: $@" if $@;
 	$result = "undef" unless defined $result;
 	last;
     }