From: Anthony Minessale <anthony.minessale@gmail.com>
Date: Wed, 14 Feb 2007 18:47:22 +0000 (+0000)
Subject: timeout bug pointed out by davidnicol
X-Git-Tag: v1.0-beta1~1105
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=df85aac80cf47600566ff080135574a1acf5133e;p=thirdparty%2Ffreeswitch.git

timeout bug pointed out by davidnicol

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@4263 d0543943-73ff-0310-b7d9-9358b9ac24b2
---

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;