diff options
author | Artur Bergman <sky@nanisky.com> | 2002-10-06 15:40:56 +0000 |
---|---|---|
committer | Artur Bergman <sky@nanisky.com> | 2002-10-06 15:40:56 +0000 |
commit | ac5e36916bf9bff6ce2594ce0b6db3ecde427ff6 (patch) | |
tree | 5635bb88328bfa015190fa282ab4d3943bee7e06 /ext/Opcode | |
parent | f53a354e92987b335cad3861853390f76eef9be2 (diff) | |
download | perl-ac5e36916bf9bff6ce2594ce0b6db3ecde427ff6.tar.gz |
Upgrade Safe.pm to 2.09 after CPAN backport.
Fix testcases to run properly outside perl core build enviroment.
p4raw-id: //depot/perl@17980
Diffstat (limited to 'ext/Opcode')
-rw-r--r-- | ext/Opcode/Safe.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/Opcode/Safe.pm b/ext/Opcode/Safe.pm index ad46bbbe69..b090e4078d 100644 --- a/ext/Opcode/Safe.pm +++ b/ext/Opcode/Safe.pm @@ -3,7 +3,7 @@ package Safe; use 5.003_11; use strict; -our $VERSION = "2.08"; +$Safe::VERSION = "2.09"; use Carp; @@ -47,7 +47,7 @@ sub new { # the whole glob *_ rather than $_ and @_ separately, otherwise # @_ in non default packages within the compartment don't work. $obj->share_from('main', $default_share); - Opcode::_safe_pkg_prep($obj->{Root}); + Opcode::_safe_pkg_prep($obj->{Root}) if($Opcode::VERSION > 1.04); return $obj; } |