Change 12344 by jhi@alpha on 2001/10/06 00:30:23
Retract the latter part of #12343.
Affected files ...
... //depot/perl/ext/IO/lib/IO/Socket/INET.pm#18 edit
Differences ...
==== //depot/perl/ext/IO/lib/IO/Socket/INET.pm#18 (text) ====
Index: perl/ext/IO/lib/IO/Socket/INET.pm
--- perl/ext/IO/lib/IO/Socket/INET.pm.~1~ Fri Oct 5 18:45:06 2001
+++ perl/ext/IO/lib/IO/Socket/INET.pm Fri Oct 5 18:45:06 2001
@@ -52,8 +52,7 @@
}
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] || "")
End of Patch.
