Change 13400 by jhi@alpha on 2001/12/01 15:43:15
Upgrade to Storable 1.0.14.
Affected files ...
.... //depot/perl/ext/Storable/ChangeLog#12 edit
.... //depot/perl/ext/Storable/Storable.pm#17 edit
Differences ...
==== //depot/perl/ext/Storable/ChangeLog#12 (text) ====
Index: perl/ext/Storable/ChangeLog
--- perl/ext/Storable/ChangeLog.~1~ Sat Dec 1 09:00:05 2001
+++ perl/ext/Storable/ChangeLog Sat Dec 1 09:00:05 2001
@@ -1,3 +1,18 @@
+Sat Dec 1 14:37:54 MET 2001 Raphael Manfredi <[EMAIL PROTECTED]>
+
+. Description:
+
+ This is the LAST maintenance release of the Storable module.
+ Indeed, Storable is now part of perl 5.8, and will be maintained
+ as part of Perl. The CPAN module will remain available there
+ for people running pre-5.8 perls.
+
+ Avoid requiring Fcntl upfront, useful to embedded runtimes.
+ Use an eval {} for testing, instead of making Storable.pm
+ simply fail its compilation in the BEGIN block.
+
+ store_fd() will now correctly autoflush file if needed.
+
Tue Aug 28 23:53:20 MEST 2001 Raphael Manfredi <[EMAIL PROTECTED]>
. Description:
==== //depot/perl/ext/Storable/Storable.pm#17 (text) ====
Index: perl/ext/Storable/Storable.pm
--- perl/ext/Storable/Storable.pm.~1~ Sat Dec 1 09:00:05 2001
+++ perl/ext/Storable/Storable.pm Sat Dec 1 09:00:05 2001
@@ -1,4 +1,4 @@
-;# $Id: Storable.pm,v 1.0.1.12 2001/08/28 21:51:51 ram Exp $
+;# $Id: Storable.pm,v 1.0.1.13 2001/12/01 13:34:49 ram Exp $
;#
;# Copyright (c) 1995-2000, Raphael Manfredi
;#
@@ -6,6 +6,10 @@
;# in the README file that comes with the distribution.
;#
;# $Log: Storable.pm,v $
+;# Revision 1.0.1.13 2001/12/01 13:34:49 ram
+;# patch14: avoid requiring Fcntl upfront, useful to embedded runtimes
+;# patch14: store_fd() will now correctly autoflush file if needed
+;#
;# Revision 1.0.1.12 2001/08/28 21:51:51 ram
;# patch13: fixed truncation race with lock_retrieve() in lock_store()
;#
@@ -66,7 +70,7 @@
use AutoLoader;
use vars qw($forgive_me $VERSION);
-$VERSION = '1.013';
+$VERSION = '1.014';
*AUTOLOAD = \&AutoLoader::AUTOLOAD; # Grrr...
#
@@ -93,8 +97,7 @@
#
BEGIN {
- require Fcntl;
- if (exists $Fcntl::EXPORT_TAGS{'flock'}) {
+ if (eval { require Fcntl; 1 } && exists $Fcntl::EXPORT_TAGS{'flock'}) {
Fcntl->import(':flock');
} else {
eval q{
@@ -234,6 +237,7 @@
# Call C routine nstore or pstore, depending on network order
eval { $ret = &$xsptr($file, $self) };
logcroak $@ if $@ =~ s/\.?\n$/,/;
+ local $\; print $file ''; # Autoflush the file if wanted
$@ = $da;
return $ret ? $ret : undef;
}
End of Patch.
