Remove use of caller() in strict.pm, and tighten Safe compartment

[perl5.git] / ext / Storable / t / code.t

diff --git a/ext/Storable/t/code.t b/ext/Storable/t/code.t
index 1912cd0..c8b2ca1 100644 (file)
--- a/ext/Storable/t/code.t
+++ b/ext/Storable/t/code.t
@@ -239,7 +239,7 @@ ok(prototype($thawed->[4]), prototype($obj[0]->[4]));
 {
     my $safe = new Safe;
     # because of opcodes used in "use strict":
-    $safe->permit(qw(:default require caller));
+    $safe->permit(qw(:default require));
     local $Storable::Eval = sub { $safe->reval(shift) };
 
     $freezed = freeze $obj[0]->[1];