?????????? ????????? - ??????????????? - /home/agenciai/public_html/cd38d8/683_thread_todo.t.tar
???????
usr/share/doc/perl-Test-Simple/t/Legacy/Regression/683_thread_todo.t 0000644 00000000654 15127647744 0021230 0 ustar 00 use strict; use warnings; use Test2::Util qw/CAN_THREAD/; BEGIN { unless(CAN_THREAD) { require Test::More; Test::More->import(skip_all => "threads are not supported"); } } use threads; use Test::More; my $t = threads->create( sub { local $TODO = "Some good reason"; fail "Crap"; 42; } ); is( $t->join, 42, "Thread exitted successfully" ); done_testing;
| ver. 1.6 |
Github
|
.
| PHP 8.2.30 | ??????????? ?????????: 0 |
proxy
|
phpinfo
|
???????????