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

[Alex Kapranoff]

2010/1/29 Dmitry Karasik <dmitry на karasik.eu.org>

> >
> > 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 }"
>

Нет:

perl -E 'sub foo { eval "sleep 10" } { local $SIG{ALRM} = sub { goto EXIT;
}; alarm 1; foo(); say "after foo"; EXIT: alarm 0; say "exited" }'
----------- следущая часть -----------
Вложение в формате HTML было извлечено&hellip;
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20100129/2233b85d/attachment.html>