diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-07-25 19:15:55 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-07-25 19:15:55 +0000 |
commit | 6618b03bfc62e0322a17b9760324899a6d1d73d1 (patch) | |
tree | 109332ea58aa5c9a84ed9dd9b7b494b2804a60ac /lib | |
parent | f9cbebe1529365fa24b4bfbacdcdacd498d1cc75 (diff) | |
parent | c0f8b9cdfbe91d09a84668a0f66d7bc8fc690dbf (diff) | |
download | perl-6618b03bfc62e0322a17b9760324899a6d1d73d1.tar.gz |
Integrate with Sarathy.
p4raw-id: //depot/cfgperl@3749
Diffstat (limited to 'lib')
-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; } |