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 (file)
--- 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] || "")