From: Michael G. Schwern <schwern@pobox.com>
Date: Tue, 12 Jul 2005 13:18:34 +0000 (-0700)
Subject: Re: Documentation error in IO::Socket
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=322cad79db9c288dac4af0072dcfa48b48a9f6b7;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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