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 67faa51..4ee7912 100644
--- a/lib/perl/lib/Thrift/Socket.pm
+++ b/lib/perl/lib/Thrift/Socket.pm
@@ -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 '.