From 5a5fd53e43b48f35b38a43c4d603ec19116e12f8 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Sun, 25 Jul 1999 17:40:03 +0000 Subject: warn rather than die when parse_version() can't cut it (from Michael G Schwern ) p4raw-id: //depot/perl@3745 --- lib/ExtUtils/MM_Unix.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'lib') diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm index 282d47166a..248ad8b8d1 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; } -- cgit v1.2.1