This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
A solution for the retrieve_fd autosplit warning,
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 25 Aug 2000 17:43:31 +0000 (17:43 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 25 Aug 2000 17:43:31 +0000 (17:43 +0000)
idea suggested by Mike Guy.

p4raw-id: //depot/perl@6815

ext/Storable/Storable.pm

index 326fbde..e8eb076 100644 (file)
@@ -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;