diff options
author | Kenichi Ishigaki <ishigaki@cpan.org> | 2014-02-19 12:27:08 +0900 |
---|---|---|
committer | Kenichi Ishigaki <ishigaki@cpan.org> | 2014-02-19 12:27:08 +0900 |
commit | 3d9cf1f3d85819d4a220e3ee988835657eaf40b9 (patch) | |
tree | 885444a2b6f26545aace0b247bb5ae3bab457d32 /lib/Parse | |
parent | dade4bddaab33a3452393dc0c3b881862ade7077 (diff) |
fixed the case of '*VERSION = *Other::Package::VERSION'
Diffstat (limited to 'lib/Parse')
-rw-r--r-- | lib/Parse/PMFile.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Parse/PMFile.pm b/lib/Parse/PMFile.pm index bb46871..4f9da45 100644 --- a/lib/Parse/PMFile.pm +++ b/lib/Parse/PMFile.pm @@ -181,7 +181,7 @@ sub _parse_version { if ($err->{line} =~ /([\$*])([\w\:\']*)\bVERSION\b.*?\=(.*)/) { local($^W) = 0; $v = $comp->reval($3); - $v = $$v if $1 eq '*'; + $v = $$v if $1 eq '*' && ref $v; } if ($@ or !$v) { $self->_verbose(1, sprintf("reval failed: err[%s] for eval[%s]", |