From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 5 Feb 2008 16:51:40 +0000 (+0000)
Subject: Adapt Safe innards to older (XS) versions of version.pm
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cd6d5856d5ee73b0989ba820bc38a8cc253f9190;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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 $@;