Hello, I have aquestions.
If I need an alarm signal alarm(), in less than 1 second what can I do?
Would that work?
sub selfalarm {
$waittime = @_;
if ($pid = fork){
} else {
$ppid = getppid();
select (undef,undef,undef, $waittime);
kill 14 => ppid;
}
}
SIG{ALRM} = sub {die;}
$c = 0;
eval {
&selfalarm("0.1");
$c++;
};
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
