summaryrefslogtreecommitdiff
path: root/lib/ExtUtils
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-07-25 17:40:03 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-07-25 17:40:03 +0000
commit5a5fd53e43b48f35b38a43c4d603ec19116e12f8 (patch)
tree8aff4bd2118614841643e2569df105c7f02f1aaa /lib/ExtUtils
parent4e4e412b11cee5b4d44ee0d29943215db93eb350 (diff)
downloadperl-5a5fd53e43b48f35b38a43c4d603ec19116e12f8.tar.gz
warn rather than die when parse_version() can't cut it (from
Michael G Schwern <schwern@pobox.com>) p4raw-id: //depot/perl@3745
Diffstat (limited to 'lib/ExtUtils')
-rw-r--r--lib/ExtUtils/MM_Unix.pm6
1 files changed, 4 insertions, 2 deletions
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;
}