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 (file)
--- 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 });