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

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

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


-- 
Mons Anderson aka Vladimir Perepelitsa
<[email protected]> / #99779956 / [email protected]
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org

Ответить