From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 25 Aug 2000 17:43:31 +0000 (+0000)
Subject: A solution for the retrieve_fd autosplit warning,
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cb3d9de5ab53f2c2103b956bb8c972762aabbaa3;p=p5sagit%2Fp5-mst-13.2.git

A solution for the retrieve_fd autosplit warning,
idea suggested by Mike Guy.

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

diff --git a/ext/Storable/Storable.pm b/ext/Storable/Storable.pm
index 326fbde..e8eb076 100644
--- a/ext/Storable/Storable.pm
+++ b/ext/Storable/Storable.pm
@@ -55,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__
@@ -194,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;