diff options
| author | Andreas Koenig <k@anna.in-berlin.de> | 1996-09-05 09:58:08 +0200 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-09-05 09:58:08 +0200 |
| commit | 676d8cc737af11e5723ce4031e7133979591ee17 (patch) | |
| tree | 443609dcc610a5c7c281aa3bbec5524c76b34358 /ext | |
| parent | cfa36279d45e2a79786d657c38c20ada558a5e43 (diff) | |
| download | perl-676d8cc737af11e5723ce4031e7133979591ee17.tar.gz | |
Patch to inhibit autosplit on Socket.pm
This patch inhibits production and use of a completely useless
auto/Socket/autosplit.ix.
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Socket/Socket.pm | 15 |
1 files changed, 2 insertions, 13 deletions
diff --git a/ext/Socket/Socket.pm b/ext/Socket/Socket.pm index 43c3c404bc..bae8a3759e 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__ |