From: T Jake Luciani <jake@apache.org>
Date: Thu, 12 Nov 2009 02:36:30 +0000 (+0000)
Subject: THRIFT-590: send/recv timeout values interchanged in perl socket lib
X-Git-Tag: 0.2.0~11
X-Git-Url: https://source.supwisdom.com/gerrit/gitweb?a=commitdiff_plain;h=93f8219567ab09f9dc35095ee3a8692f7a1992ad;p=common%2Fthrift.git

THRIFT-590: send/recv timeout values interchanged in perl socket lib

git-svn-id: https://svn.apache.org/repos/asf/incubator/thrift/trunk@835200 13f79535-47bb-0310-9956-ffa450edef68
---

diff --git a/lib/perl/lib/Thrift/Socket.pm b/lib/perl/lib/Thrift/Socket.pm
index 67faa510..4ee79123 100644
--- a/lib/perl/lib/Thrift/Socket.pm
+++ b/lib/perl/lib/Thrift/Socket.pm
@@ -196,7 +196,7 @@ sub read
     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 @@ sub write
 
 
         #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 '.