diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-25 17:40:03 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-25 17:40:03 +0000 |
commit | 5a5fd53e43b48f35b38a43c4d603ec19116e12f8 (patch) | |
tree | 8aff4bd2118614841643e2569df105c7f02f1aaa /lib/ExtUtils | |
parent | 4e4e412b11cee5b4d44ee0d29943215db93eb350 (diff) | |
download | perl-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.pm | 6 |
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; } |