From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 1 Dec 2001 15:43:15 +0000 (+0000)
Subject: Upgrade to Storable 1.0.14.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=596596d5aabe9911959c06896187615f7af0c5c1;p=p5sagit%2Fp5-mst-13.2.git

Upgrade to Storable 1.0.14.

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

diff --git a/ext/Storable/ChangeLog b/ext/Storable/ChangeLog
index dc71fe5..2288b2d 100644
--- a/ext/Storable/ChangeLog
+++ b/ext/Storable/ChangeLog
@@ -1,3 +1,18 @@
+Sat Dec  1 14:37:54 MET 2001   Raphael Manfredi <Raphael_Manfredi@pobox.com>
+
+. 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 <Raphael_Manfredi@pobox.com>
 
 . Description:
diff --git a/ext/Storable/Storable.pm b/ext/Storable/Storable.pm
index ba8c0f6..d72b71d 100644
--- a/ext/Storable/Storable.pm
+++ b/ext/Storable/Storable.pm
@@ -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 @@ package Storable; @ISA = qw(Exporter DynaLoader);
 use AutoLoader;
 use vars qw($forgive_me $VERSION);
 
-$VERSION = '1.013';
+$VERSION = '1.014';
 *AUTOLOAD = \&AutoLoader::AUTOLOAD;		# Grrr...
 
 #
@@ -93,8 +97,7 @@ unless (defined @Log::Agent::EXPORT) {
 #
 
 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 @@ sub _store_fd {
 	# 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;
 }