Posted to tcl by rmax at Tue Aug 31 10:08:57 GMT 2010view pretty

while (1)
{   
    my @ready = $select->can_read(0);
    foreach my $fh (@ready)
    {   
        my $line = <$fh>;
        if (defined($line))
        {   
            &debug($fhs{$fh}->{job},$fhs{$fh}->{std},$line);
        }
        else
        {   
            print "ERROR: $fhs{$fh}->{job} died.  Shutting down server.\n";
            &Signal("TERM");
        }
    }

    select(undef,undef,undef,.01);
}