Change 11962 by jhi@alpha on 2001/09/09 13:46:59
Can't count parentheses.
Affected files ...
... //depot/perl/ext/IO/lib/IO/Socket/INET.pm#16 edit
Differences ...
==== //depot/perl/ext/IO/lib/IO/Socket/INET.pm#16 (text) ====
Index: perl/ext/IO/lib/IO/Socket/INET.pm
--- perl/ext/IO/lib/IO/Socket/INET.pm.~1~ Sun Sep 9 08:00:05 2001
+++ perl/ext/IO/lib/IO/Socket/INET.pm Sun Sep 9 08:00:05 2001
@@ -42,7 +42,7 @@
if(defined $addr && $addr =~ s,:([\w\(\)/]+)$,,);
if(defined $proto && $proto =~ /\D/) {
- if(@proto = getprotobyname($proto) {
+ if(@proto = getprotobyname($proto)) {
$proto = $proto[2] || undef;
}
else {
End of Patch.
