Can't count parentheses.

p4raw-id: //depot/perl@11962

diff --git a/ext/IO/lib/IO/Socket/INET.pm b/ext/IO/lib/IO/Socket/INET.pm
index 8f1845b..139163b 100644 (file)
--- a/ext/IO/lib/IO/Socket/INET.pm
+++ b/ext/IO/lib/IO/Socket/INET.pm
@@ -42,7 +42,7 @@ sub _sock_info {
        if(defined $addr && $addr =~ s,:([\w\(\)/]+)$,,);
 
   if(defined $proto  && $proto =~ /\D/) {
-    if(@proto = getprotobyname($proto) {
+    if(@proto = getprotobyname($proto)) {
       $proto = $proto[2] || undef;
     }
     else {