From ee580363108be8ac33155650c6c18d2e5cf051f3 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 14 May 1998 23:34:26 +0000
Subject: [win32] merge change#904 from maintbranch

p4raw-link: @904 on //depot/maint-5.004/perl: 0af7994b889ad0dfcacb011f16f9e3c77a9292b9

p4raw-id: //depot/win32/perl@975
---
 ext/IO/lib/IO/Socket.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'ext/IO')

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;
-- 
cgit v1.2.1