diff options
| author | Paul Marquess <pmarquess@bfsec.bt.co.uk> | 1996-02-06 14:09:49 +0000 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-02-06 14:09:49 +0000 |
| commit | 73c78b0a2be8a786003c2c964410ac778b021b43 (patch) | |
| tree | 6a473194ed692f1d41bcc0773600a004bd197270 /ext/Socket | |
| parent | 785da04d1d58a83562b02a5c8764cea0dc6ceede (diff) | |
| download | perl-73c78b0a2be8a786003c2c964410ac778b021b43.tar.gz | |
VERSION Patch
Diffstat (limited to 'ext/Socket')
| -rw-r--r-- | ext/Socket/Socket.pm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/ext/Socket/Socket.pm b/ext/Socket/Socket.pm index 9cc7585cb3..43c3c404bc 100644 --- a/ext/Socket/Socket.pm +++ b/ext/Socket/Socket.pm @@ -1,5 +1,7 @@ package Socket; -$VERSION = $VERSION = "1.5"; + +use vars qw($VERSION @ISA @EXPORT); +$VERSION = "1.5"; =head1 NAME @@ -250,16 +252,16 @@ sub sockaddr_un { sub AUTOLOAD { - local($constname); + my($constname); ($constname = $AUTOLOAD) =~ s/.*:://; - $val = constant($constname, @_ ? $_[0] : 0); + my $val = constant($constname, @_ ? $_[0] : 0); if ($! != 0) { if ($! =~ /Invalid/) { $AutoLoader::AUTOLOAD = $AUTOLOAD; goto &AutoLoader::AUTOLOAD; } else { - ($pack,$file,$line) = caller; + my ($pack,$file,$line) = caller; croak "Your vendor has not defined Socket macro $constname, used"; } } @@ -267,7 +269,7 @@ sub AUTOLOAD { goto &$AUTOLOAD; } -bootstrap Socket; +bootstrap Socket $VERSION; # Preloaded methods go here. Autoload methods go after __END__, and are # processed by the autosplit program. |