From df85aac80cf47600566ff080135574a1acf5133e Mon Sep 17 00:00:00 2001
From: Anthony Minessale <anthony.minessale@gmail.com>
Date: Wed, 14 Feb 2007 18:47:22 +0000
Subject: [PATCH] timeout bug pointed out by davidnicol

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@4263 d0543943-73ff-0310-b7d9-9358b9ac24b2
---
 scripts/socket/FreeSWITCH/Client.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scripts/socket/FreeSWITCH/Client.pm b/scripts/socket/FreeSWITCH/Client.pm
index 26d237eb5a..91282caee8 100644
--- a/scripts/socket/FreeSWITCH/Client.pm
+++ b/scripts/socket/FreeSWITCH/Client.pm
@@ -27,7 +27,7 @@ sub init($;$) {
 
 sub readhash($;$) {
   my ($self,$to) = @_;
-  my ($can_read) = IO::Select::select($self->{_sel}, undef, undef, $to ? to : undef);
+  my ($can_read) = IO::Select::select($self->{_sel}, undef, undef, $to);
   my $s = shift @{$can_read};
   my @r = ();
   my $crc = 0;