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

diff --git a/ext/Opcode/Safe.pm b/ext/Opcode/Safe.pm
index 7e1d6a3..a803b5f 100644
--- a/ext/Opcode/Safe.pm
+++ b/ext/Opcode/Safe.pm
@@ -47,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;
 }