[Moscow.pm] Ограничить время выполнения произвольной функции

[Dmitry Karasik]

> 
> perl -E 'sub foo { eval "sleep 10" } { local $SIG{ALRM} = sub { goto EXIT; }; 
> alarm 1; foo(); EXIT: alarm 0; say "exited" }'

оно не работает если "sub foo { sleep 10 }"

-- 
Sincerely,
	Dmitry Karasik