You are viewing a plain text version of this content. The canonical link for it is here.

Posted to commits@thrift.apache.org by ja...@apache.org on 2009/11/12 03:36:33 UTC

svn commit: r835200 - /incubator/thrift/trunk/lib/perl/lib/Thrift/Socket.pm

Author: jake
Date: Thu Nov 12 02:36:30 2009
New Revision: 835200

URL: http://svn.apache.org/viewvc?rev=835200&view=rev
Log:
THRIFT-590: send/recv timeout values interchanged in perl socket lib

Modified:
    incubator/thrift/trunk/lib/perl/lib/Thrift/Socket.pm

Modified: incubator/thrift/trunk/lib/perl/lib/Thrift/Socket.pm
URL: http://svn.apache.org/viewvc/incubator/thrift/trunk/lib/perl/lib/Thrift/Socket.pm?rev=835200&r1=835199&r2=835200&view=diff
==============================================================================
--- incubator/thrift/trunk/lib/perl/lib/Thrift/Socket.pm (original)
+++ incubator/thrift/trunk/lib/perl/lib/Thrift/Socket.pm Thu Nov 12 02:36:30 2009
@@ -196,7 +196,7 @@
     return unless defined $self->{handle};
 
     #check for timeout
-    my @sockets = $self->{handle}->can_read( $self->{sendTimeout} / 1000 );
+    my @sockets = $self->{handle}->can_read( $self->{recvTimeout} / 1000 );
 
     if(@sockets == 0){
         die new Thrift::TException('TSocket: timed out reading '.$len.' bytes from '.
@@ -236,7 +236,7 @@
 
 
         #check for timeout
-        my @sockets = $self->{handle}->can_write( $self->{recvTimeout} / 1000 );
+        my @sockets = $self->{handle}->can_write( $self->{sendTimeout} / 1000 );
 
         if(@sockets == 0){
             die new Thrift::TException('TSocket: timed out writing to bytes from '.