Всем привет.
Скажите, это только у меня, в кору падает такая штука, или так писать нельзя, тогда почему?
Спасибо.
#!/usr/bin/env perl
use warnings;
use strict;
use threads;
use AnyEvent;
use EV;
my $thr;
my $s2 = AnyEvent->signal(
signal => "USR1",
cb => sub {
my $r = $thr->join();
print "r : " . dump(\$r) ."\n";
}
);
my $timer = AnyEvent->timer (
interval => 300,
after => 0,
cb => \&timer_handler
);
sub timer_handler {
$thr = threads->create(
sub {
kill 'USR1', $$;
return (1);
}
);
}
EV::loop;
