вот я нашел интересный хак, вроде работает:
use strict;
use Coro;
$SIG{ALRM} = sub { warn "alarm\n"; cede };
sub foo { eval "sleep 5;" }
alarm(1);
async(\&foo);
cede;
print "over\n";
alarm(0);
--
Sincerely,
Dmitry Karasik
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
