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 26d237eb5aee913191132a01c906e192f00afbcc..91282caee81fe4f1caa5707dd94f755e3d93cdbc 100644 (file)
--- 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;