X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FOpcode%2FSafe.pm;h=a803b5f12dad549d5351b0ab80897fad4dd47692;hb=8c7314f9ab22287a19960f7531f5ca7120cc6843;hp=00ee85dbebd303de98e3cfc540bee538bb1ca277;hpb=3e92a2540996678c49663ee454dadc7970cdb925;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/Opcode/Safe.pm b/ext/Opcode/Safe.pm
index 00ee85d..a803b5f 100644
--- a/ext/Opcode/Safe.pm
+++ b/ext/Opcode/Safe.pm
@@ -2,9 +2,8 @@ package Safe;
 
 use 5.003_11;
 use strict;
-use vars qw($VERSION);
 
-$VERSION = "2.06";
+our $VERSION = "2.06";
 
 use Carp;
 
@@ -48,6 +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});
     return $obj;
 }