diff options
| author | Olaf Titz <olaf@bigred.inka.de> | 1998-04-21 10:21:10 +1200 |
|---|---|---|
| committer | Tim Bunce <Tim.Bunce@ig.co.uk> | 1998-04-28 20:20:21 +1200 |
| commit | 9256df36d58b5295b529a24634912dcaa5b71c8e (patch) | |
| tree | 2466a3cff15017470a865bec0a07965ab2fd4e31 | |
| parent | 04b54d8c4c1187a73ad5a43eddbdf14640806bb3 (diff) | |
| download | perl-9256df36d58b5295b529a24634912dcaa5b71c8e.tar.gz | |
IO::Socket->socketpair broken (typo)
An obvious typo makes IO::Socket->socketpair() return bogus results.
Here's the patch:
p5p-msgid: 19980425224535.2807.qmail@bigred.inka.de
| -rw-r--r-- | ext/IO/lib/IO/Socket.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/IO/lib/IO/Socket.pm b/ext/IO/lib/IO/Socket.pm index aadb502f19..406f74d2ff 100644 --- a/ext/IO/lib/IO/Socket.pm +++ b/ext/IO/lib/IO/Socket.pm @@ -186,7 +186,7 @@ sub socketpair { my $fh1 = $class->new(); my $fh2 = $class->new(); - socketpair($fh1,$fh1,$domain,$type,$protocol) or + socketpair($fh1,$fh2,$domain,$type,$protocol) or return (); ${*$fh1}{'io_socket_type'} = ${*$fh2}{'io_socket_type'} = $type; |