This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
warn rather than die when parse_version() can't cut it (from
authorGurusamy Sarathy <gsar@cpan.org>
Sun, 25 Jul 1999 17:40:03 +0000 (17:40 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Sun, 25 Jul 1999 17:40:03 +0000 (17:40 +0000)
Michael G Schwern <schwern@pobox.com>)

p4raw-id: //depot/perl@3745

lib/ExtUtils/MM_Unix.pm

index 282d471..248ad8b 100644 (file)
@@ -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;
     }