diff options
| author | Slaven Rezic <slaven@rezic.de> | 2002-10-10 18:23:22 +0200 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-10-17 13:34:01 +0000 |
| commit | d1e2299c1c3e13c365c4beee74f1481ec4de334a (patch) | |
| tree | 0cefcbc3a398e40451dd3d1261a3a54254403953 /ext/Storable | |
| parent | 24a7a40d02cc0ea4a7e6fc143f53dd60b2d0d047 (diff) | |
| download | perl-d1e2299c1c3e13c365c4beee74f1481ec4de334a.tar.gz | |
Re: [perl #17061] no strict 'garbage'
Message-ID: <87ptui5q5h.fsf@vran.herceg.de>
p4raw-id: //depot/perl@18024
Diffstat (limited to 'ext/Storable')
| -rw-r--r-- | ext/Storable/Storable.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Storable/Storable.pm b/ext/Storable/Storable.pm index 1a62e622f7..a3807774ea 100644 --- a/ext/Storable/Storable.pm +++ b/ext/Storable/Storable.pm @@ -813,7 +813,7 @@ compartment: use strict; my $safe = new Safe; # because of opcodes used in "use strict": - $safe->permit(qw(:default require caller)); + $safe->permit(qw(:default require)); local $Storable::Deparse = 1; local $Storable::Eval = sub { $safe->reval($_[0]) }; my $serialized = freeze(sub { 42 }); |