diff options
| author | Johan Vromans <jvromans@squirrel.nl> | 2007-04-25 18:12:58 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-04-26 10:51:36 +0000 |
| commit | e3def60f2e5ccd1bf34656c3a5e1691f3bdc48a9 (patch) | |
| tree | 9c2128ee1837af849384fcbe30051d4c40a82578 /ext/Storable | |
| parent | 32e6a07c84b153f78f946de50870bc0ee030624f (diff) | |
| download | perl-e3def60f2e5ccd1bf34656c3a5e1691f3bdc48a9.tar.gz | |
Re: The Strict trap
Message-ID: <m2lkggilud.fsf@phoenix.squirrel.nl>
p4raw-id: //depot/perl@31082
Diffstat (limited to 'ext/Storable')
| -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 81e8b9037d..c3c988b458 100644 --- a/ext/Storable/t/code.t +++ b/ext/Storable/t/code.t @@ -242,7 +242,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)); + $safe->permit(qw(:default require caller)); local $Storable::Eval = sub { $safe->reval(shift) }; $freezed = freeze $obj[0]->[1]; |