From: Slaven Rezic <slaven@rezic.de>
Date: Thu, 10 Oct 2002 16:23:22 +0000 (+0200)
Subject: Re: [perl #17061] no strict 'garbage'
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d1e2299c1c3e13c365c4beee74f1481ec4de334a;p=p5sagit%2Fp5-mst-13.2.git

Re: [perl #17061] no strict 'garbage'
Message-ID: <87ptui5q5h.fsf@vran.herceg.de>

p4raw-id: //depot/perl@18024
---

diff --git a/ext/Storable/Storable.pm b/ext/Storable/Storable.pm
index 1a62e62..a380777 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 });