diff options
author | Kenichi Ishigaki <ishigaki@cpan.org> | 2014-10-08 11:42:47 +0900 |
---|---|---|
committer | Kenichi Ishigaki <ishigaki@cpan.org> | 2014-10-08 11:42:47 +0900 |
commit | 770574281e40bd32c087758d41af7d7f772b2fab (patch) | |
tree | b6fdd9e5bc68b141fd5af3690a8cad2a83f7579c /lib/Parse | |
parent | 2f26fe1b09bad7a88d12e313696d5837f170c5d8 (diff) |
import qv if UNSAFE
Diffstat (limited to 'lib/Parse')
-rw-r--r-- | lib/Parse/PMFile.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/Parse/PMFile.pm b/lib/Parse/PMFile.pm index 4d70299..db05d2a 100644 --- a/lib/Parse/PMFile.pm +++ b/lib/Parse/PMFile.pm @@ -214,6 +214,8 @@ sub _parse_version { $comp->permit(":base_math"); # atan2 (Acme-Pi) # $comp->permit("require"); # no strict! $comp->deny(qw/enteriter iter unstack goto/); # minimum protection against Acme::BadExample + + version->import('qv') if $self->{UNSAFE} || $UNSAFE; { no strict; $v = ($self->{UNSAFE} || $UNSAFE) ? eval $eval : $comp->reval($eval); |