From: Andreas Koenig <k@anna.in-berlin.de>
Date: Thu, 5 Sep 1996 07:58:08 +0000 (+0200)
Subject: Patch to inhibit autosplit on Socket.pm
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=676d8cc737af11e5723ce4031e7133979591ee17;p=p5sagit%2Fp5-mst-13.2.git

Patch to inhibit autosplit on Socket.pm

This patch inhibits production and use of a completely useless
auto/Socket/autosplit.ix.
---

diff --git a/ext/Socket/Socket.pm b/ext/Socket/Socket.pm
index 43c3c40..bae8a37 100644
--- a/ext/Socket/Socket.pm
+++ b/ext/Socket/Socket.pm
@@ -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__