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); }