diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-01 15:43:15 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-01 15:43:15 +0000 |
| commit | 596596d5aabe9911959c06896187615f7af0c5c1 (patch) | |
| tree | 6ab88c783cdfc3ff411f615ea1ebd27357f83890 /ext | |
| parent | 4e2cda5de1463f636caa8d7626a38efc5bdd4d8d (diff) | |
| download | perl-596596d5aabe9911959c06896187615f7af0c5c1.tar.gz | |
Upgrade to Storable 1.0.14.
p4raw-id: //depot/perl@13400
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Storable/ChangeLog | 15 | ||||
| -rw-r--r-- | ext/Storable/Storable.pm | 12 |
2 files changed, 23 insertions, 4 deletions
diff --git a/ext/Storable/ChangeLog b/ext/Storable/ChangeLog index dc71fe5e55..2288b2d950 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 ba8c0f67d6..d72b71d06f 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; } |