perlquestion
Skeeve
<p>
I'm desperately trying to get timeouts to work and came up with this test code:
<code>
use Sys::SigAction qw( set_sig_handler );
eval {
my $h = set_sig_handler( 'ALRM' ,sub {
die "TIMEOUT\n";
}, {
mask=>[ 'ALRM' ],
safe=>1,
});
eval {
alarm 3;
$opened= open my $check, '-|', 'sleep 60';
if ($opened) {
# slurp its output
$line= do { local $/; <$check>; };
$exit_code= $!+0;
$closed= close $check;
}
alarm 0;
};
alarm 0;
die $@ if $@;
};
alarm 0;
print $@;
</code>
Of course I can't really ready something from a "sleep" command, But I expected this to return after 3 seconds with a "Timeout". Instead I have to wait 60 seconds, so the full sleep-time.
</p>
<p>
I also tried a different command than "sleep" like, for example, a long running "find" command but still the sleep does not die.
</p>
<p>
What am I doing wrong or what do I misunderstand?
</p>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-253915">
<hr><code>s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%</code>
<br><font color="red"><code>+</code></font><code>.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e</code>
</div></div>