threads and alarm

#!/usr/bin/perl

use strict;
use warnings;

use threads;

$|=1;

$SIG{INT} = sub {
        threads->exit();
        exit(1);
};

my $thr = threads->new(\&Testsub);
$thr->detach();

while(1){
}

exit(0);

sub Testsub{

        while(1){
                eval {

                        local $SIG{ALRM} = sub { print "alarm!\n"; };

                        alarm(2);

                        sleep 5;

                        alarm(0);
                };
        }
}

• threads and alarm by alfonso caponi
• Re: threads and alarm by Jerry D. Hedden
• RE: threads and alarm by Danny Wong
• Re: threads and alarm by Jerry D. Hedden
• timing out threads by Danny Wong
• Re: timing out threads by Mike Pomraning
• Re: timing out threads by Francesco Nidito