Big-endian 64-bit patch from Raphael Manfredi.

[p5sagit/p5-mst-13.2.git] / ext / Storable / Storable.pm

diff --git a/ext/Storable/Storable.pm b/ext/Storable/Storable.pm
index 15d194c..e8eb076 100644 (file)
--- a/ext/Storable/Storable.pm
+++ b/ext/Storable/Storable.pm
@@ -1,4 +1,4 @@
-;# $Id: Storable.pm,v 0.7.1.2 2000/08/14 07:18:40 ram Exp $
+;# $Id: Storable.pm,v 0.7.1.3 2000/08/23 22:49:25 ram Exp $
 ;#
 ;#  Copyright (c) 1995-2000, Raphael Manfredi
 ;#  
@@ -6,6 +6,9 @@
 ;#  as specified in the README file that comes with the distribution.
 ;#
 ;# $Log: Storable.pm,v $
+;# Revision 0.7.1.3  2000/08/23 22:49:25  ram
+;# patch3: updated version number
+;#
 ;# Revision 0.7.1.2  2000/08/14 07:18:40  ram
 ;# patch2: increased version number
 ;#
@@ -32,7 +35,7 @@ package Storable; @ISA = qw(Exporter DynaLoader);
 use AutoLoader;
 use vars qw($forgive_me $VERSION);
 
-$VERSION = '0.702';
+$VERSION = '0.703';
 *AUTOLOAD = \&AutoLoader::AUTOLOAD;            # Grrr...
 
 #
@@ -52,6 +55,9 @@ unless (defined @Log::Agent::EXPORT) {
 
 sub logcroak;
 
+# 8.3 limitation avoidance trickery.  --mjtguy
+sub retrieve_fd { goto &fdretrieve };
+
 bootstrap Storable;
 1;
 __END__
@@ -191,11 +197,11 @@ sub retrieve {
 }
 
 #
-# retrieve_fd
+# fdretrieve
 #
 # Same as retrieve, but perform from an already opened file descriptor instead.
 #
-sub retrieve_fd {
+sub fdretrieve {
        my ($file) = @_;
        my $fd = fileno($file);
        logcroak "not a valid file descriptor" unless defined $fd;