Posted to tcl by rmax at Tue Aug 31 10:08:57 GMT 2010view raw
- 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);
- }