diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-20 11:51:10 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-20 11:51:10 +0000 |
| commit | a957f605ba75f16b2eb6f85e3cfffa325e8c9168 (patch) | |
| tree | 6318dd4b3cbc2e590914d6b1c3142f16f464205c /ext | |
| parent | cb5953d685cec7d1e5d677ac4d2ddbe33ef0a803 (diff) | |
| download | perl-a957f605ba75f16b2eb6f85e3cfffa325e8c9168.tar.gz | |
Re: Bug in IO::Socket::INET module (repeat)
From: Graham Barr <gbarr@pobox.com>
Date: Wed, 20 Jun 2001 11:05:49 +0100
Message-ID: <20010620110549.I19188@pobox.com>
reported in
Subject: Bug in IO::Socket::INET module (repeat)
From: "Harmon S. Nine" <hnine@netarx.com>
Date: Tue, 19 Jun 2001 09:41:35 -0400
Message-ID: <3B2F568F.8080605@netarx.com>
The bug was that the IO::Socket::INET constructor
did not allow a 'LocalPort' of 0.
p4raw-id: //depot/perl@10746
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/IO/lib/IO/Socket/INET.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/IO/lib/IO/Socket/INET.pm b/ext/IO/lib/IO/Socket/INET.pm index 56dd7a2660..abe769389b 100644 --- a/ext/IO/lib/IO/Socket/INET.pm +++ b/ext/IO/lib/IO/Socket/INET.pm @@ -63,7 +63,7 @@ sub _sock_info { @serv = getservbyname($port, $proto[0] || "") if ($port =~ m,\D,); - $port = $pnum || $serv[2] || $defport || undef; + $port = $serv[2] || $defport || $pnum; unless (defined $port) { $@ = "Bad service '$origport'"; return; |