Adapt Safe innards to older (XS) versions of version.pm

p4raw-id: //depot/perl@33238

diff --git a/ext/Opcode/Safe.pm b/ext/Opcode/Safe.pm
index 5ee1f92..04a3b55 100644 (file)
--- a/ext/Opcode/Safe.pm
+++ b/ext/Opcode/Safe.pm
@@ -60,6 +60,7 @@ my $default_share = [qw[
     &utf8::unicode_to_native
     $version::VERSION
     $version::CLASS
+    @version::ISA
 ], ($] >= 5.010 && qw[
     &re::is_regexp
     &re::regname

diff --git a/ext/Safe/t/safeload.t b/ext/Safe/t/safeload.t
index 6817c2c..db8f1c5 100644 (file)
--- a/ext/Safe/t/safeload.t
+++ b/ext/Safe/t/safeload.t
@@ -25,6 +25,6 @@ use Safe;
 plan(tests => 1);
 
 my $c = new Safe;
-$c->permit(qw(require caller));
+$c->permit(qw(require caller entereval));
 my $r = $c->reval(q{ use version; 1 });
 ok( defined $r, "Can load version.pm in a Safe compartment" ) or diag $@;