diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2002-10-10 09:51:24 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-10-10 09:51:24 +0000 |
| commit | e279cb0b1bca3fd51526cebcf39440049559cc98 (patch) | |
| tree | d4fae52be5c4e5ac14dfaf1e2421df7172b28913 /ext | |
| parent | fb652349441d4b05f41d77692a72134e7014d8f6 (diff) | |
| download | perl-e279cb0b1bca3fd51526cebcf39440049559cc98.tar.gz | |
Remove use of caller() in strict.pm, and tighten Safe compartment
for Storable tests to match.
p4raw-id: //depot/perl@17986
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Storable/t/code.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Storable/t/code.t b/ext/Storable/t/code.t index 1912cd047e..c8b2ca1b5d 100644 --- 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]; |