Change 18024 by [EMAIL PROTECTED] on 2002/10/17 13:34:01
Subject: Re: [perl #17061] no strict 'garbage'
From: Slaven Rezic <[EMAIL PROTECTED]>
Date: 10 Oct 2002 16:23:22 +0200
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/ext/Storable/Storable.pm#43 edit
Differences ...
==== //depot/perl/ext/Storable/Storable.pm#43 (text) ====
Index: perl/ext/Storable/Storable.pm
--- perl/ext/Storable/Storable.pm#42~18008~ Sat Oct 12 07:38:19 2002
+++ perl/ext/Storable/Storable.pm Thu Oct 17 06:34:01 2002
@@ -813,7 +813,7 @@
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 });
End of Patch.
