diff options
| author | Kenichi Ishigaki <ishigaki@cpan.org> | 2014-12-09 09:57:59 +0900 |
|---|---|---|
| committer | Kenichi Ishigaki <ishigaki@cpan.org> | 2014-12-09 09:57:59 +0900 |
| commit | 90c41705f79225da4f73497bb791c0fcf9801ed7 (patch) | |
| tree | c5d46cbf8f7652ee3a1c97db7109cab2afeafa44 /lib/Parse | |
| parent | 60d0f94c118c10eee390be3f2368759e0585702c (diff) | |
added tests for version->declare/qv without using version explicitly
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 5ffad5f..cfb6a96 100644 --- a/lib/Parse/PMFile.pm +++ b/lib/Parse/PMFile.pm @@ -227,7 +227,7 @@ sub _parse_version { if ($err->{line} =~ /([\$*])([\w\:\']*)\bVERSION\b.*?\=(.*)/) { local($^W) = 0; my ($sigil, $vstr) = ($1, $3); - $self->_restore_overloaded_stuff(1) if $err->{line} =~ /use\s+version\b/; + $self->_restore_overloaded_stuff(1) if $err->{line} =~ /use\s+version\b|version\->|qv\(/; $v = ($self->{UNSAFE} || $UNSAFE) ? eval $vstr : $comp->reval($vstr); $v = $$v if $sigil eq '*' && ref $v; } |