From cd6d5856d5ee73b0989ba820bc38a8cc253f9190 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 5 Feb 2008 16:51:40 +0000
Subject: [PATCH] Adapt Safe innards to older (XS) versions of version.pm

p4raw-id: //depot/perl@33238
---
 ext/Opcode/Safe.pm    | 1 +
 ext/Safe/t/safeload.t | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

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