[ViewVC] Diff of: cvs/Coro/Coro/Socket.pm

Comparing Coro/Coro/Socket.pm (file contents):
Revision 1.47 by root, Mon Mar 16 22:22:12 2009 UTC vs.
Revision 1.48 by root, Mon Apr 6 03:34:21 2009 UTC

 Create a new non-blocking tcp handle and connect to the given host
 and port. The parameter names and values are mostly the same as for
 IO::Socket::INET (as ugly as I think they are).
 The parameters officially supported currently are: C<ReuseAddr>,
-C<LocalPort>, C<LocalHost>, C<PeerPort>, C<PeerHost>, C<Listen>, C<Timeout>.
+C<LocalPort>, C<LocalHost>, C<PeerPort>, C<PeerHost>, C<Listen>, C<Timeout>,
+C<SO_RCVBUF>, C<SO_SNDBUF>.
    $fh = new Coro::Socket PeerHost => "localhost", PeerPort => 'finger';
 =cut
    if ($arg->{Broadcast}) {
       $self->setsockopt (SOL_SOCKET, SO_BROADCAST, 1)
          or croak "setsockopt(SO_BROADCAST): $!";
    }
+   if ($arg->{SO_RCVBUF}) {
+      $self->setsockopt (SOL_SOCKET, SO_RCVBUF, $arg->{SO_RCVBUF})
+         or croak "setsockopt(SO_RCVBUF): $!";
+   }
+   if ($arg->{SO_SNDBUF}) {
+      $self->setsockopt (SOL_SOCKET, SO_SNDBUF, $arg->{SO_SNDBUF})
+         or croak "setsockopt(SO_SNDBUF): $!";
+   }
    if ($arg->{LocalPort} || $arg->{LocalHost}) {
       my @sa = _sa($arg->{LocalHost} || "0.0.0.0", $arg->{LocalPort} || 0, $arg->{Proto});
       $self->bind ($sa[0])
          or croak "bind($arg->{LocalHost}:$arg->{LocalPort}): $!";
    }

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines