-while (1) {
- my $rin = '';
- my $rout;
- vec($rin, fileno($engine->{'read'}), 1) = 1;
- if (defined($engine2)) {
- vec($rin, fileno($engine2->{'read'}), 1) = 1;
- }
- vec($rin, fileno($t), 1) = 1;
-
- my ($nfound, $timeleft) = select($rout=$rin, undef, undef, 5.0);
- my $sleep = 1.0;
-
- while (1) {
- my $line = $t->getline(Timeout => 0, errmode => 'return');
- last if (!defined($line));