From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 9 Sep 2001 13:46:59 +0000 (+0000)
Subject: Can't count parentheses.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5fe7c0f53782c7b8cd0c9725f30e843cce08406d;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 {