diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-14 23:34:26 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-14 23:34:26 +0000 |
| commit | ee580363108be8ac33155650c6c18d2e5cf051f3 (patch) | |
| tree | 624481ea9b43b14435199892029f54adfa629ab2 /ext/IO | |
| parent | 7b8d334a971230040a212bc5038097b3f600a094 (diff) | |
| download | perl-ee580363108be8ac33155650c6c18d2e5cf051f3.tar.gz | |
[win32] merge change#904 from maintbranch
p4raw-link: @904 on //depot/maint-5.004/perl: 0af7994b889ad0dfcacb011f16f9e3c77a9292b9
p4raw-id: //depot/win32/perl@975
Diffstat (limited to 'ext/IO')
| -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; |