Re: Documentation error in IO::Socket

Message-ID: <20050712201834.GA29275@windhund.schwern.org>

p4raw-id: //depot/perl@25131

diff --git a/ext/IO/lib/IO/Socket.pm b/ext/IO/lib/IO/Socket.pm
index 353785a..4ea07d0 100644 (file)
--- a/ext/IO/lib/IO/Socket.pm
+++ b/ext/IO/lib/IO/Socket.pm
@@ -404,7 +404,7 @@ false otherwise.
     use IO::Socket;
 
     my $sock = IO::Socket::INET->new('some_server');
-    $sock->read(1024,$data) until $sock->atmark;
+    $sock->read($data, 1024) until $sock->atmark;
 
 Note: this is a reasonably new addition to the family of socket
 functions, so all systems may not support this yet.  If it is