This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Patch to inhibit autosplit on Socket.pm
authorAndreas Koenig <k@anna.in-berlin.de>
Thu, 5 Sep 1996 07:58:08 +0000 (09:58 +0200)
committerAndy Dougherty <doughera@lafcol.lafayette.edu>
Thu, 5 Sep 1996 07:58:08 +0000 (09:58 +0200)
This patch inhibits production and use of a completely useless
auto/Socket/autosplit.ix.

ext/Socket/Socket.pm

index 43c3c40..bae8a37 100644 (file)
@@ -139,7 +139,6 @@ have AF_UNIX in the right place.
 use Carp;
 
 require Exporter;
-use AutoLoader;
 require DynaLoader;
 @ISA = qw(Exporter DynaLoader);
 @EXPORT = qw(
@@ -256,14 +255,8 @@ sub AUTOLOAD {
     ($constname = $AUTOLOAD) =~ s/.*:://;
     my $val = constant($constname, @_ ? $_[0] : 0);
     if ($! != 0) {
-       if ($! =~ /Invalid/) {
-           $AutoLoader::AUTOLOAD = $AUTOLOAD;
-           goto &AutoLoader::AUTOLOAD;
-       }
-       else {
-           my ($pack,$file,$line) = caller;
-           croak "Your vendor has not defined Socket macro $constname, used";
-       }
+       my ($pack,$file,$line) = caller;
+       croak "Your vendor has not defined Socket macro $constname, used";
     }
     eval "sub $AUTOLOAD { $val }";
     goto &$AUTOLOAD;
@@ -271,8 +264,4 @@ sub AUTOLOAD {
 
 bootstrap Socket $VERSION;
 
-# Preloaded methods go here.  Autoload methods go after __END__, and are
-# processed by the autosplit program.
-
 1;
-__END__