diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-09 13:46:59 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-09 13:46:59 +0000 |
| commit | 5fe7c0f53782c7b8cd0c9725f30e843cce08406d (patch) | |
| tree | e1b5151573553d40d8355e5ac454b466204a38e7 /ext | |
| parent | 73e9292c037f14dcc0452a91beb6695a4eccc9aa (diff) | |
| download | perl-5fe7c0f53782c7b8cd0c9725f30e843cce08406d.tar.gz | |
Can't count parentheses.
p4raw-id: //depot/perl@11962
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/IO/lib/IO/Socket/INET.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/IO/lib/IO/Socket/INET.pm b/ext/IO/lib/IO/Socket/INET.pm index 8f1845b248..139163be55 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 { |