Author: anthm Date: Wed Feb 14 13:47:22 2007 New Revision: 4263 Modified: freeswitch/trunk/scripts/socket/FreeSWITCH/Client.pm Log: timeout bug pointed out by davidnicol Modified: freeswitch/trunk/scripts/socket/FreeSWITCH/Client.pm ============================================================================== --- freeswitch/trunk/scripts/socket/FreeSWITCH/Client.pm (original) +++ freeswitch/trunk/scripts/socket/FreeSWITCH/Client.pm Wed Feb 14 13:47:22 2007 @@ -27,7 +27,7 @@ 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;