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

diff --git a/ext/IO/lib/IO/Socket/INET.pm b/ext/IO/lib/IO/Socket/INET.pm
index 56dd7a2..abe7693 100644 (file)
--- 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;