X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FStorable%2FStorable.pm;h=e1a72f6a83be707ab3a23fb539e804ab33a60535;hb=2cc1b180444ab1e2ac675ff3e9f78a123bc70c80;hp=1283b7983ecf4e3921f2049a320c661ecf427b41;hpb=197b90bc675dbb2231247e9e988048a1157fec5f;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/Storable/Storable.pm b/ext/Storable/Storable.pm
index 1283b79..e1a72f6 100644
--- a/ext/Storable/Storable.pm
+++ b/ext/Storable/Storable.pm
@@ -21,7 +21,7 @@ package Storable; @ISA = qw(Exporter DynaLoader);
 use AutoLoader;
 use vars qw($canonical $forgive_me $VERSION);
 
-$VERSION = '2.05';
+$VERSION = '2.07';
 *AUTOLOAD = \&AutoLoader::AUTOLOAD;		# Grrr...
 
 #
@@ -361,6 +361,9 @@ sub thaw {
 	return $self;
 }
 
+1;
+__END__
+
 =head1 NAME
 
 Storable - persistence for Perl data structures
@@ -810,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 });