Subversion Repositories HomeAutomation

Rev

Rev 2002 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | SVN | RSS feed

Rev 2002 Rev 2101
Line 58... Line 58...
58 
{
 58 
{
59 
    ($socket) = @_;
 59 
    ($socket) = @_;
60 
 
 60 
 
61 
    $s = IO::Select->new();
 61 
    $s = IO::Select->new();
62 
    $s->add($socket);
 62 
    $s->add($socket);
63 
    @handles = $s->can_read(0.001);
 63 
    @handles = $s->can_read(0.005);
64 
 
 64 
 
65 
    $has_data = 0;
 65 
    $has_data = 0;
66 
    if (@handles)
 66 
    if (@handles)
67 
    {
 67 
    {
68 
        $has_data = 1;
 68 
        $has_data = 1;