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

[Dmitry E. Oboukhov]

On 20:08 Fri 29 Jan     , Mons Anderson wrote:
MA> On Friday 29 January 2010 19:45:48 Dmitry E. Oboukhov wrote:
>> можешь набросать тест который она не пройдет?

MA> что-то типа...

MA> my $start = time;
MA> my $res = eval { dtimeout(1, sub { eval "sleep 2";sleep 2; 1; }) };
MA> my $run = time - $start;
MA> ok $run < 3;
MA> ok !$res;

хгм. получается всего один уровень проблемы скинули.
блин, тогда сабжевый вопрос пока открытым остается.

any ideas?
-- 
... mpd is off

. ''`.                               Dmitry E. Oboukhov
: :’  :   email: unera на debian.org jabber://UNera@uvw.ru
`. `~’              GPGKey: 1024D / F8E26537 2006-11-21
  `- 1B23 D4F8 8EC0 D902 0555  E438 AB8C 00CF F8E2 6537
----------- следущая часть -----------
A non-text attachment was scrubbed...
Name: отсутствует
Type: application/pgp-signature
Size: 198 bytes
Desc: Digital signature
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20100129/707512c6/attachment-0002.bin>