Define alarm in threads

[Sébastien Cottalorda]

I need to define an alarm like this.

eval {
my $thr = threads->new(\&run_cmd, params);
};
if ($@){
print "$@\n";
}
blah blah blah


sub run_cmd {
blah blah blah
threads->detach();
eval {
local $SIG{ALRM} = sub { die "TIMEOUT\n" };
alarm 10;
`$command_to_execute`;
alarm 0;
};
if ($@){
print "$@\n";
}
}

My problem is the following :
after waiting 10 seconds, either the master or the thread die.

How can I timeout the thread without affecting the master ?

Thanks in advance for any kind of help.

Sebastien

 

[Dr.Ruud]

eval {
my $thr = threads->new(\&run_cmd, params);
};
if ($@){
print "$@\n";
}

You are not using $thr.

Below an alternative that uses the return value of eval
(in stead of relying on the global $@)

eval {
threads->new(\&run_cmd, @params);
1; # success
}
or do {
my $err = $@ || "unknown";
print "$err\n";
};