From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 6 Oct 2001 00:30:23 +0000 (+0000)
Subject: Retract the latter part of #12343.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=293f53d825022a3af3ed970f7a8f71bb230dd9d0;p=p5sagit%2Fp5-mst-13.2.git

Retract the latter part of #12343.

p4raw-id: //depot/perl@12344
---

diff --git a/ext/IO/lib/IO/Socket/INET.pm b/ext/IO/lib/IO/Socket/INET.pm
index 7083b99..051de53 100644
--- a/ext/IO/lib/IO/Socket/INET.pm
+++ b/ext/IO/lib/IO/Socket/INET.pm
@@ -52,8 +52,7 @@ sub _sock_info {
   }
 
   if(defined $port) {
-
-    my $defport = ($port =~ s,\((\d+)\)$,,)[0];
+    my $defport = ($port =~ s,\((\d+)\)$,,) ? $1 : undef;
     my $pnum = ($port =~ m,^(\d+)$,)[0];
 
     @serv = getservbyname($port, $proto[0] || "")