A solution for the retrieve_fd autosplit warning,

idea suggested by Mike Guy.

p4raw-id: //depot/perl@6815

1 files changed, 5 insertions, 2 deletions

diff --git a/ext/Storable/Storable.pm b/ext/Storable/Storable.pm
index 326fbdefa6..e8eb076d8f 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;