Change 33238 by [EMAIL PROTECTED] on 2008/02/05 16:51:40
Adapt Safe innards to older (XS) versions of version.pm
Affected files ...
... //depot/perl/ext/Opcode/Safe.pm#34 edit
... //depot/perl/ext/Safe/t/safeload.t#2 edit
Differences ...
==== //depot/perl/ext/Opcode/Safe.pm#34 (text) ====
Index: perl/ext/Opcode/Safe.pm
--- perl/ext/Opcode/Safe.pm#33~33236~ 2008-02-05 03:06:11.000000000 -0800
+++ perl/ext/Opcode/Safe.pm 2008-02-05 08:51:40.000000000 -0800
@@ -60,6 +60,7 @@
&utf8::unicode_to_native
$version::VERSION
$version::CLASS
+ @version::ISA
], ($] >= 5.010 && qw[
&re::is_regexp
&re::regname
==== //depot/perl/ext/Safe/t/safeload.t#2 (text) ====
Index: perl/ext/Safe/t/safeload.t
--- perl/ext/Safe/t/safeload.t#1~33237~ 2008-02-05 06:00:00.000000000 -0800
+++ perl/ext/Safe/t/safeload.t 2008-02-05 08:51:40.000000000 -0800
@@ -25,6 +25,6 @@
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 $@;
End of Patch.
