Warning: file_get_contents(https://raw.githubusercontent.com/Den1xxx/Filemanager/master/languages/ru.json): failed to open stream: HTTP request failed! HTTP/1.1 404 Not Found
in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 88
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 215
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 216
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 217
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 218
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 219
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 220
PK ! :x x
threads.sonu ȯ ELF > @) @ 8 @ 8 @ Ѕ Ѕ P P P 0 $ $ Ptd z z z 4 4 Qtd Rtd P P P GNU 5n(3S\- *Eq c @ c e BE|:qX : ? . O * ( # O [ n f z y ' 0 ` p O = k * g q ~ O [ 3 5 e H > [ , | F " | X C V p J __gmon_start__ _ITM_deregisterTMCloneTable _ITM_registerTMCloneTable __cxa_finalize libpthread.so.0 Perl_hv_common_key_len pthread_mutex_lock pthread_mutex_unlock Perl_ckwarn_d Perl_croak_nocontext Perl_sv_2uv_flags Perl_warn Perl_sv_isobject Perl_sv_2iv_flags Perl_croak Perl_clone_params_new Perl_ptr_table_new Perl_ptr_table_store Perl_sv_dup Perl_clone_params_del Perl_gv_stashpv Perl_sv_bless Perl_ptr_table_free Perl_sv_2mortal Perl_newSViv __errno_location sysconf Perl_get_sv Perl_ckwarn Perl_sv_2pv_flags Perl_sv_upgrade Perl_looks_like_number sigfillset sigdelset pthread_sigmask __stack_chk_fail Perl_sv_unmagic sched_yield __sigsetjmp Perl_call_sv Perl_pop_scope Perl_gv_add_by_type Perl_sv_2bool_flags Perl_newSVuv PL_charclass Perl_whichsig_pv Perl_newSV Perl_newSVrv Perl_sv_setiv Perl_sv_magicext Perl_stack_grow Perl_block_gimme Perl_mg_get PL_thr_key pthread_setspecific perl_destruct perl_free Perl_sv_free2 pthread_mutex_destroy pthread_detach pthread_join Perl_av_shift Perl_mg_size malloc pthread_mutex_init Perl_PerlIO_flush Perl_save_bool perl_clone Perl_sv_copypv_flags Perl_newSV_type Perl_av_extend memcpy Perl_sv_dup_inc pthread_attr_setdetachstate pthread_attr_setstacksize pthread_attr_setscope pthread_create pthread_attr_getstacksize Perl_PerlIO_stderr Perl_PerlIO_fileno PL_no_mem strlen write Perl_my_exit pthread_attr_init Perl_av_len Perl_push_scope Perl_savetmps Perl_av_store Perl_newSVsv Perl_free_tmps Perl_markstack_grow boot_threads Perl_xs_handshake Perl_newXS_deffile Perl_my_cxt_init Perl_sv_setuv pthread_self Perl_xs_boot_epilog libperl.so.5.26 libc.so.6 _edata __bss_start _end GLIBC_2.2.5 GLIBC_2.14 GLIBC_2.4 U ui [ 9 g ii
r ui [ P ) X ) ` ` * M :
ȏ ! Џ * ؏ 3 X ` ،
( 0 8 @ H P X ` h p x ȍ " Ѝ # ؍ $ % & ' ( ) + , - . ( / 0 0 8 1 @ 2 H 4 P 5 X 6 ` 7 h 8 p 9 x : ; < = > ? @ A B C Ȏ D Ў E ؎ F G H I J K L M N O ( P 0 Q 8 R @ S H T P U X V ` W h Y p Z x [ \ ] ^ _ ` a b HH9r HtH 5o %o h h h h h h h h q h a h Q h
A h 1 h ! h
h h h h h h h h h h q h a h Q h A h 1 h ! h h h h h! h" h# h$ h% h& h' q h( a h) Q h* A h+ 1 h, ! h- h. h/ h0 h1 h2 h3 h4 h5 h6 h7 q h8 a h9 Q h: A h; 1 h< ! h= h> h? h@ hA hB hC hD hE hF hG q hH a hI Q hJ A hK 1 hL ! hM hN hO hP hQ hR hS hT hU hV hW q hX a hY Q hZ A h[ 1 %Mi D %Ei D %=i D %5i D %-i D %%i D % i D %i D %
i D %i D %h D %h D %h D %h D %h D %h D %h D %h D %h D %h D %h D %h D %h D %h D %h D %h D %}h D %uh D %mh D %eh D %]h D %Uh D %Mh D %Eh D %=h D %5h D %-h D %%h D % h D %h D %
h D %h D %g D %g D %g D %g D %g D %g D %g D %g D %g D %g D %g D %g D %g D %g D %g D %g D %}g D %ug D %mg D %eg D %]g D %Ug D %Mg D %Eg D %=g D %5g D %-g D %%g D % g D %g D %
g D %g D %f D %f D %f D %f D %f D %f D %f D %f D %f D %f D %f D %f D %f D %f D %f D %f D %}f D %uf D H=f Hf H9tH^f Ht H=f H5f H)HHH?HHtHEf Htf D =ef u+UH="f Ht H=` 9d=f ] w HHR(HP 1N AU E1A0 ATHwI UHSHH j ZYH0F % = HHX L L E1HP LAH@ t.Yu8( HHu\HD[]A\A]f D H8 u!tىƹf HH 1H=vL 1 HHZ H8 H@ H1LH H5_L BHD[]A\A]Éƹc HiH 1H=K SH E1H%H A0 HHj ZYH0F % = uHH@ H9Xt1[ @ HKH9XuH[ H)HZYH0F % = HLh HSIcHH, H4 HCHHt( HCMX Ht(F % = udHHp HULHIX LcHHTII$HkH+H[]A\A] HI; H3HH5= H_H5 B H1NH5A H1= f. UHSH dH%( H$ 1HH H H H1HHH$ dH3 %( u
HĘ [] USHHHGxHPHWx HWHH, Hºn HpHCHD(HH[] D f. UHSHHGxHPHWxMHEHcHDHE H[]f D SH G@t$(1HT$HL$ LD$LL$dH %( H$ 1ۉD$F T$) ` <X
D @ I$ HHD$ # HD$ M4$M9u^ @ uIT$t;HE H)H HT$ LHL{HH HCLHD$M6M9t[Mn L LE~Lk Auʃ|$vL$D`\M6M9uH|$ & D$ H] H8[]A\A]A^A_ HH HH D txHHH@H D$ @ 1H)HD$HE@" Hf D HI t
HHz u"H1ff.@( DD$ HD$Ht$HL|$(H]HH>LHHELHE H8[]A\A]A^A_1HDD$HHF80D$q H>. H=1 1 H". H=1 1 H5. H1f ATUSHGxHHOHPHWxHc H?PHH)HH HcH4H, F ur% = uRHVH Hc5I HH4 H6LcHHII$HkH+[]A\f. 1ҹ HHH5- H1f. AW E1A0 AVAUATUSHH HGxL7H HPHWxHWHc j D`HH, I)IZYH0F % = k HLx HSMcJ, J4F 5 % = LnHL*A A~ A u<<t8
t(HCH8 JHkH+H[]A\A]A^A_ % = HHP Hc
*H H HH0H9V M H$L H$ I7I9t H;Vu H9V H6I9uLND J @ HHHg 1ҹ HHSI D HI LHXLcHHII$HkH+H[]A\A]A^A_ @ L~ H4$L(H4$ FLLH4$D$ H4$urD$ LHLcHHILI$n HHH $H $H5)+ H1/; H$* H=- 19 H* H=- 1g1 AVIAUATUSHH dH%( H$ 1ILHkL-E H A} H
HcE H HHHs`HtV VHsxHC` HtVv|VHCx HHNHC A} LuX1L 7H$ dH3%( u1HĐ []A\A]A^ @ Hn Hx} H( H=a. 1 f. AV E1A0 AUHg( ATUHSHH Hj ZYH0F % = HLp Lc LCLuCHCH YT M Lb6 HHCLHBHHH HC L" HHL L HgLugIP LuL[]A\A]A^f D t HD' H=* 1 HIN ʹL H ' H=* 1hƹ< H& 1H=, L; 당4 뿹1 z+ 뮹% i UHSHHZ(H{ uHHH1[]Éƹ Hs& 1H=) f AW E1A0 AVAUATUSHH HGxH HPHWx H& j hwZYH0F % = HLx HSHcHM H HH $p HP+LH = Le L
DmLDD$ L L D$ L EL$tqHHHCH $HDHH[]A\A]A^A_ HkI DH}hEL.ELt I8 K HH I@ IH # H$ H=N( 1 H$ H=( 1 뿹 AH% H5a% HHD1Ff D AW E1A0 AVIAUATUSH@H H dH%( HD$01HGxHHPHWxHWHc j DhHH# H)4HZYH0F % = HLp 8 McLJ HD$IGJ4 IGLJp HPHc? II Il$ HHH H$ AT$L H$H@I9D$7 HAT$LG I HHT$KHT$ I8 H I|$hHt$ Aƅ HŅ I8 HD$AD$P= Mt$LLI|$`HHH|$LHD$AHc> I8 LI I HI8 L I I IP LIP I Ih LIh LD$Ht$LLHc> H $II LD$HLHpM5 AFI LILJ AD$L ~ LLAF ID`HEy LLLIIG H)HW LLLkHCA9}AVw AVM/ H H H=k$ 1$ @ LI H$ $uH! H5! LHD1bI LcILJ AD$L u LL=LLIGI8 J HD$IGIHD$(dH3%( H8[]A\A]A^A_ @ H5d! L1 HH LL$!L$H D LLA> D I|LL%H5 L1_ HO H=" 1" i$ ع& XnH5 LD01
ƹ6 H 1H=" ^LLr @ f. AWE1A0 AVAUATUSHHpL'H dH%( HD$`1HGxHPHWxHcHGIHHb I)IDd$0j AYAZH0F % = HHh A AHSIcHH HHL$@
E1E1Ld$HJt"ID$HD$hHC HD$8 JD HpHH@t2HH@HIHLHHtDA EtH Ht HHD$8F % = Lb IT$ HH$H$ ID$pEd$LHAH$~ C/HSD$@HL g tHHz \XHff.@(A@6f D E1HH@80 DElf HHE1]AAHf D H LE1j A H HY^HyHE1A Lj H. HA]ZH'H0HvV z utс
Gt[HHtHRHS f. 1Hf HL t
HHy utH1ff.B( E눹 H7 H= 1 H H= 1z ƹ H 1H=L W 룉ƹ H 1H= 47 x: HH5 H1 j1HS HAHHF80tNtHHy H1ff.B( E 1HĽH5 H1 H衽qHeHF80S AWA0 E1ɹ AVH
AUATUHSH`H_dH%( HD$P1D$D D$H H Hj _AXH0F % = HH@ HD$HE HH$| H<$K H( Hu8aD$ Hc ) H H H1H(ƃ Lm`HLGH߃D$DL3eH=HCxHHCxH; LH+SHt$D E1 f D MHC L)H= LHMfAIFD9|$DL#HD$is_joinable() Usage: $thr->is_running() Usage: $thr->err() @ PANIC: sysconf: %s Stack size must be numeric Usage: $thr->kill('SIG...') Unrecognized signal name: %s Usage: threads->list(...) Usage: threads->self() Usage: threads->object($tid) Thread already detached Cannot detach a joined thread Cannot join a detached thread Thread already joined Usage: $thr->join() Cannot join self PANIC: underlying join failed threads::thread_exit_only stack stacksize context Invalid context: %s scalar void exit main v5.26.0 threads.c threads::create threads::list threads::self threads::tid threads::join threads::yield threads::detach threads::kill threads::DESTROY threads::equal threads::object threads::_handle threads::get_stack_size threads::set_stack_size threads::is_running threads::is_detached threads::is_joinable threads::wantarray threads::set_thread_exit_only threads::error panic: MUTEX_LOCK (%d) [%s:%d] panic: MUTEX_UNLOCK (%d) [%s:%d] Perl exited with active threads:
%ld running and unjoined
%ld finished and unjoined
%ld running and detached
Using minimum thread stack size of %ld PANIC: sysconf: pagesize unknown Usage: threads->set_stack_size($size) Cannot change stack size of an existing thread Thread %lu terminated abnormally: %-p Usage: ->set_thread_exit_only(boolean) Cannot signal threads without safe signals Signal %s received in thread %lu, but no signal handler set. panic: pthread_setspecific (%d) [%s:%d] panic: MUTEX_DESTROY (%d) [%s:%d] Usage: threads->create(\%%specs, function, ...) Usage: threads->create(function, ...) panic: MUTEX_INIT (%d) [%s:%d] Thread creation failed: pthread_attr_setstacksize(%ld) returned %d Thread creation failed: pthread_create returned %d ;4 % P x @ ` 0( ph @ `T @ л0 P\ о @ ` , @\ ` 0 P| 0 ` p P` 08 P@
@
zR x $ FJ w ?:*3$" D @ \ T p H BPH D(D8I@F8A0n
(D ABBG r
(D ABBA ( t EcB FAb
E W < 3 FBB A(A0
(A BBBH < 4 + FBB A(A0
(A BBBE d t FBB B(A0A8GP
8A0A(B BBBD s
8A0A(B BBBA @ ( FPA A(G8^@I8A0
(A ABBH 8 FBA A(G0p
(A ABBI X \ BPI D(D0K8B@F8A0I
(A BBBI `
(A BBBI @ L FPA A(G8_@\8A0
(A ABBD ( ADGl
AAA $ ( Q EAG AAA$ P $: EDD jAA $ x < AG
AG ( h AEJ ]
AAA 8 HO @J , | JAE ^
ABG < ( ܺ FBB A(A0y
(A BBBA 8 h l FBA A(G0
(A ABBG ( h FAA \AB ( Th FAA \AB H FBB B(A0A8G@
8A0A(B BBBG < H ̿ BBD D(G0t8H@h(A ABBC0p . FPB B(A0D8Dx@MxBp
8A0A(B BBBH /
8A0A(B BBBA , FAA
ABK l , FPB B(A0A8GX_`\XAP
8A0A(B BBBD !
8A0A(B BBBE @ 8U BEB A(A0J
0A(A BBBE H T BPI A(D0N8B@F8A0
(A BBBG ( , N EDD `
CAA P X FPB B(A0A8GX^`IXAP
8A0A(B BBBH T b FPE B(A0A8Dxr\xAp
8A0A(B BBBE FPB B(A0A8GIGBGKXAnNVBNUBHM\AZ
8A0A(B BBBA rKXA~PTBMVAMNVB9MVAMNVA X FPI B(A0D8DpFB<
8A0A(B BBBA H h FNO A(L08H@j8A0
(G ABBE GNU ) ) ` * M : U ) 9
s P X o ( `
| 8 o o X o o o 0 @ P ` p 0 @ P ` p 0 @ P ` p ! ! ! 0! @! P! `! p! ! ! ! ! ! ! ! ! " " " 0" @" P" `" p" " " " " " " " " # # # 0# @# P# `# p# GA$3a1 @) @) GA$3a1 GA$3a1 s s GA$3a1 @) )
GA$3p864 * s GA$gcc 8.2.1 20180905
GA*GOW *E GA* GA+stack_clash GA*cf_protection GA+GLIBCXX_ASSERTIONS
GA*FORTIFY GA* GA! GA* GA!stack_realign
GA$3h864 @) @)
GA$3h864 @) @) GA$3a1 s s GA$3a1 s s GA$3a1 GA$3a1 s s threads.so-2.21-2.el8.x86_64.debug y7zXZ ִF ! t/] ?Eh=ڊ2Nx>h
|dXVJov;]pRy)
Ԁ:<4-GiAS, 랈]k_cO {
oKՓ
, Uy_͏㲑 qPP =b YBfj鴆y،Lyk{ʦ'b[
>#>bc_P(pozTdp[wuzw/sP{w6w3h#ZJxu:yt Oܢh
jJ
^Rv)+}^ Ɗ {C:hw,t+yI'P-GEB<^ F*O~De٦;Aټ-|JJa"qp C9x}3 {) 唢ҊPPbCt[5g'=
+ $>N04"wq7N jOFkR78jxx R k2mq~Uvh|4laDuDYZϩ oVZةׄnq8/{iVFH-ğ# :C A1 ' .Fg YZ .shstrtab .note.gnu.build-id .gnu.hash .dynsym .dynstr .gnu.version .gnu.version_r .rela.dyn .rela.plt .init .plt.sec .text .fini .rodata .eh_frame_hdr .eh_frame .note.gnu.property .init_array .fini_array .data.rel.ro .dynamic .got .data .bss .gnu.build.attributes .gnu_debuglink .gnu_debugdata $ o ( ( 4 ( ` ` 0 | 8 o E o X X ` T 8 ^ B h c n # # w @) @) \J } s s
2 s s z z 4 { { P P X X ` ` ` 0 ` `
Ȓ ( ( PK ! l shared/shared.sonu ȯ ELF > $ @ @ 8 @ ` ` @ @ @ $ $ @ @ @ Ptd t t t Qtd Rtd GNU % ؖK} Q @"` HQ T V BEZ6|~SqX A9I e z 2 [ ] 4 A L : l R e " ` } i . D u A . ! P P X 9 * " , j F " n I @ @ r @ pi e @ __gmon_start__ _ITM_deregisterTMCloneTable _ITM_registerTMCloneTable __cxa_finalize libpthread.so.0 PL_charclass sharedsv_elem_vtbl Perl_sv_magicext pthread_mutex_lock pthread_mutex_unlock Perl_croak_nocontext pthread_cond_signal Perl_sv_2iv_flags pthread_cond_wait Perl_save_destructor_x Perl_push_scope Perl_pop_scope PL_thr_key pthread_setspecific Perl_savetmps Perl_hv_placeholders_get Perl_free_tmps Perl_av_len Perl_hv_iternext_flags Perl_hv_iterkey Perl_newSVpvn_flags __stack_chk_fail Perl_croak_xs_usage Perl_hv_iterinit Perl_hv_common_key_len Perl_av_exists Perl_sv_2pvutf8 Perl_av_extend Perl_mg_find sharedsv_scalar_vtbl Perl_sv_derived_from sharedsv_array_vtbl Perl_croak Perl_ckwarn Perl_gv_stashpvn Perl_sv_bless Perl_sv_2mortal Perl_newSVpv Perl_sv_2pv_flags Perl_warner Perl_newSViv Perl_newSVuv Perl_mg_get pthread_mutex_destroy pthread_cond_destroy free pthread_mutex_init pthread_cond_init calloc pthread_cond_timedwait Perl_sv_2nv_flags Perl_sv_newmortal Perl_sv_setiv_mg pthread_cond_broadcast Perl_sv_free2 Perl_sv_unmagic Perl_newSV Perl_sv_setref_iv Perl_sv_upgrade Perl_mg_set Perl_newRV Perl_av_shift Perl_av_pop Perl_sv_setsv_flags Perl_av_fetch Perl_av_delete Perl_hv_clear Perl_av_clear Perl_av_fill Perl_av_unshift Perl_newSVsv Perl_av_store Perl_av_push boot_threads__shared Perl_xs_handshake Perl_newXS_deffile Perl_newXS_flags perl_alloc perl_construct Perl_xs_boot_epilog libperl.so.5.26 libc.so.6 _edata __bss_start _end GLIBC_2.2.5 GLIBC_2.3.2 GLIBC_2.4 U 0 ui ri ii
ui p% 0% P ) X W ` @F h % p % pQ a T P' O Ȋ 0` P % ( 9 ȏ T Џ ! ؏ R W H K X ` h p x
ȍ Ѝ ؍ ( 0 8 @ " H # P $ X % ` & h ' p ( x ) * + , - . / 0 1 2 Ȏ 3 Ў 4 ؎ 5 6 7 8 9 : ; < = > ( ? 0 @ 8 A @ B H C P D X E ` F h G p I x J K L M N O P HHt HtH 5r %r h h h h h h h h q h a h Q h
A h 1 h ! h
h h h h h h h h h h q h a h Q h A h 1 h ! h h h h h! h" h# h$ h% h& h' q h( a h) Q h* A h+ 1 h, ! h- h. h/ h0 h1 h2 h3 h4 h5 h6 h7 q h8 a h9 Q h: A h; 1 h< ! h= h> h? h@ hA hB hC hD hE hF hG q hH a hI Q hJ A %Mm D %Em D %=m D %5m D %-m D %%m D % m D %m D %
m D %m D %l D %l D %l D %l D %l D %l D %l D %l D %l D %l D %l D %l D %l D %l D %l D %l D %}l D %ul D %ml D %el D %]l D %Ul D %Ml D %El D %=l D %5l D %-l D %%l D % l D %l D %
l D %l D %k D %k D %k D %k D %k D %k D %k D %k D %k D %k D %k D %k D %k D %k D %k D %k D %}k D %uk D %mk D %ek D %]k D %Uk D %Mk D %Ek D %=k D %5k D %-k D %%k D % k D %k D %
k D %k D %j D % H=9k H2k H9tHj Ht H= k H5k H)HHH?HHtHj Htf D =j u+UH=j Ht H=d dj ] w HF(Ht@1ff. f. HHDRH
i HR AQMLFLi H A@ A@ E3H H D USHH= j HGu:H= j H--j u?H9tHH[]%i H[]Éƹ HF 1H=H
ƹ HE 1H=H UHHSHHuSH9k(tHu]H[] k0uHC( H{8tωƹ HE 1H=~H ƹ HkE 1H=H eƹ HOE 1H= H If HF @
t#HpF % = uHH@ Ht@1 @ H jHt@1Hf. ATIHUSHu|HC(Hk8L9uK HHu?HC(HuC0 Lc(H]uWHLH5[]A\ C0Չƹ HTD 1H=UD Nƹ H8D 1H=F 2ƹ H D 1H=F f D AUIATIUSHHHj(Ht$kH5g LELHk(HCHHS IKLCLLPISPSfPH1[]A\A] f. AWAVAUATUHSHLb(H5 g HsL-tf H ]g A} H HHA|$ tqI$LxHx EtLHA)HCXH9CP7HA} HKu?HHD[]A\A]A^A_ D Hf D LH]A럹> HB H=E 1|7 D AWAVAUATUSHHHdH%( HD$1HGxHPHWxHWHc D`HH)HH McE1JN, @
HD$ nH5e HL= e H-e A?H6u H6H 1LHH HPHHHcJDt
HT$:IAHEXH9EP H-A?H, AHkHcT$LH߁ L HE HLkL+HD$dH3%( H[]A\A]A^A_ HpF % = uUHLp f HEXH9EP^H~A?H HCH8 Jj Ipf D HP H@i H3@ H=LC 1-HH5C@ n ӹ AWAVAUATUSHHHdH%( HD$1HGxHPHWxHWHc D`HH)HH McE1JN, @
HD$ H57c HL=b H-c A?Hu HHLH1LH&H HPHHHcJDt
HT$IAHEXH9EP HA?HW! AHkHcT$LH߁ L HE HzLkL+HD$dH3%( H[]A\A]A^A_HpF % = uMHLp HEXH9EP^H A?H HCH8 Ju Ipf D H H H= H=@ 1HH5= ӹ AWIAVAUATUSH(HdH%( HD$1HGxHPHWxHWHc hHH)HHm HcHL$ @
bHpNl"F % = F HH@ H$H$x I AU % = IE IMH@HL$HD$ALA݁ DDIH5r` LL5_ H ` A>H HHHDE1j HT$A HHt$eZYHHCXAH9CP HA>LT LEIh IP HEIWHMgM'HD$dH3%( H([]A\A]A^A_ @ FH$H$x LH HHAE % = udIE HP H4$HAHCXH9CPH/f. HT$LLPAU HD$HD$, D LHhHHH5; / H: H== 1 ⹃ D AWAVAUATUSHHHHCxHKH3HPHSxHc PHH)HHa HcL$ H,Jt!F % = HLx E1E
HH5] H6L57] H- ^ A>Hm HmHULLHHEXH9EP HA>H& HvHCJD HH[]A\A]A^A_ HuF % = u=HLh L LL @H1ҹ~ j ILiO LLHLU HfPY^1H}h}uZIEXI9EP?LA>H 9 H0 H=3 1 Lh뷹 Љƹ HY0 1H=0 S AWAVAUATUHSHHH dH%( HD$81HGxHPHWxHWHc DhHH)HC HG@# HHHGL4IcL$ HD$L,Jt"F % = $ HP($E1 AE
I]C
HHH HHIH@hHD$Mt=L9t8AG
IwF
tHvH H>H&LHIHEXH9EP HbA?H HkHCLHLHE HCJ49MtAVvsAVH LkL+H[]A\A]A^A_f D HpF % = u HLp HY VIf D LH-뇹8 H H=! 1: HH5 f AUIATIUHSHdH%( HD$1F
H^Ht9HbL9Q AD$
It$HtVG V1HAU HHHDLHHI\$C AEtKIM H1F % = u~HHPH$HHp HK HHt@HHD$dH3%( H[]A\A]fH8 1LHAL$ -f D H HH$Hx @ HH2HtVvEVC %C C AU 1fH8 H(C @ f. ATIUSHHj(H5B@ HE
t,HULHHE@
u;H3[1]A\ @ HLH1H[1]A\f ID$H߁H HEIt$HPH[1]A\ ATUHSHmH5? H Hu(F
uHH[1]A\HFxuHn HHIHE(LHHPHu(HF@
tID$H߁H HE(It$H@HP D Hu(HlH[1]A\ @ AWAVIAUATUSHH(dH%( HD$1HB @
u^iH5> HH8 LHH1HL$dH3 %( d H([]A\A]A^A_f D HpIԋF % = f HLh HH5> HxMuA} ID$(HD$ID$H3 AL=I= H-2> A?H HHgHDE1j HT$A LHIXZHEXH9EP HA?H k MI$B
tLHRLHI$H@@
IFH߁H I$IvH@HP LH I$LH߹ ya @ HQ vIf D HL$A u(HHIHL$HRAAܩ DD @ Ht$HT$ HQHT$HD$ID$(@ D L=; H-< A?HuRHHIT$1LHIq\ H& H=? 1 ⹛ f AWAVAUATUSHdH%( HD$1HB @
HHpHIԋF % = HLh M H(H5Q; HHHLkn HHtHHHA} IL$Mt$(H AL=j: H-S; A?H HHHLE1j AD DLHXZHEXH9EPdHA?HI
H1HL$dH3 %( H[]A\A]A^A_ @ If D Hpf D AF utIMvHJAAܩ DD D L=a9 H-J: A?H~ HHIT$LH D LHHH $IID$(@ p H H= 1 f. AWAVIAUATUSHHB(HD$D` H59 LyHz8 H c9 8H HH A Ht$H1E1@A n M} IMtAG utMMtAuH7 L8 I Lm LHHLHLAG
H7 H {8 8HQ[ HD$LhH HhA - Ht$1HHtLx A tzHt$H-HCXH9CPzHH6 L8: LH1[]A\A]A^A_f HCLH IWHsHt$HcHCXH9CP~HQyW HF H=_ 1@a K f AWAVAUATUHHSHHExHMHu HPHUxHc PHH)HH~ HcH L$HtHT$F % = HHX H$ AD$
HH5A6 HH5 L%6 8L LLA$ H$LpH H@AHH9~ @ AIcH9 M,MtAE utMmMtA}uH5 H8N H HIHLLH AE
H4 L%5 8LZt Hl H= 1ff D H4$HSLpID$XI9D$P LHY4 H8 HHEHL$HDHE H[]A\A]A^A_f D ID$HH IUIt$C,f D It$F % = uH3B H3H{ a H8 1HHAD$LcK AD$ D AGt,I1H @ 1H I$AL$ HHEXH9EP; HA>L H[]A\A]A^A_ÐHBx LHHHSHL;HC@
HELH HCHuHPf %L51 H-2 AD$ A>H HH1LHHC W AD$t&I$1H @u`1HHK HHEXH9EP HA>LX0 H
H= 1 @ HH@HRHTHHtR t H HuHpl @ HH@HRHTHHJ t H HHpH8H HHp I$H2HtVvtVAD$ %AD$ f. H HH2HtVv=VC %C H5( L16f D HAD$ 눐HC 뿹$ D AVAUATIUSHLj(H5/ HVAE A8D$ vcL5K/ H-40 A>H HHiAT$ LH(HEXH9EP>H覿A>H;u1LLHH聿[1]A\A]A^f D H븹C H H= 1zA AWAVIAUE1ATIUHSH(dH%( HD$1HB @
t HpF % = i HLh AF E1tA " HwH5. HA} ID$(H$ID$H5 AH- H . 8HHD$ HHHDE1j HT$A0 LHkIXZHCXH9CP H HD$H8豾m I$LH
I$LHI$HD x ۽1HL$dH3 %( E H([]A\A]A^A_f D A % AǸ DE If D H; H $A } HHIH $HRAAܩ DDfHq, H Z- 8HHD$製 HH苾IT$LH߹ ֿIf D H4$HT$ H蒽HT$H$ID$(@ f H H= 1谾˼ ݹ f. AWAVAUATIUSH(HGxH/HPHWxHWHcHˍAH H)H HH$ H HHL$@
L蟿H5+ L0H1+ L-, 8LhJ LhLPUH4$LHc讽IEXI9EP L舻H* L8 P EE1HD$CD$ GfHHH* L8 U IEUL;l$ IŋD$ IT$LE1DHH4^Hŋ@ t+A "u A x% AƸ DE @ HLHLHIH) H * 8H$ H$H E w H4$LLHAGHCXH9CPH[f D HL赽IEL;l$LID$HL$HDI$H([]A\A]A^A_ @ HpF % = u"HH@ H$ D Lؼ# I + H H= 1贻' ! ۹ HH5 AWAVAUATUHSH(HGxH HPHWxHWHc ID`HH)H HD$ IcH HHL$@
a A AL=4( D$Pf D HȸA?H] H譸AU AAUHUD9t$ IcH1H4Iŋ@ t* "u x% ø E HH5( HyLHLHIH
A \$ A?H F( H薸 H薻H~Ht$LH螹AD$HCXH9CPHҺ D LHA)HUD9t$HD$HDHE H([]A\A]A^A_ D HpF % = uHH@ HD$P ڶHU @ HJ H=c 1D HH5C ~ @ f. UL- H1SH
% HH#
H菹HXH5 H߉H@H5 HѸHZH5 H軸HtH5 H襸HH5% H菸HHH5
HyHH5 HcHzΤBHG@ǸZ]C X, DDr74B A\Ћ>ȶJc#U2ö%FK7I V#jS~X($܄]m>=0 aMϗsm78f~lw;k)x
n*IVd&=GaP"0g;Op8{Ex -bcl:?P5P
;) V;˕҈c $ #x5(Unޙ9Tp \] gNB :hQaY P P shared.pmnu [ package threads::shared;
use 5.008;
use strict;
use warnings;
use Scalar::Util qw(reftype refaddr blessed);
our $VERSION = '1.58'; # Please update the pod, too.
my $XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
# Declare that we have been loaded
$threads::shared::threads_shared = 1;
# Method of complaint about things we can't clone
$threads::shared::clone_warn = undef;
# Load the XS code, if applicable
if ($threads::threads) {
require XSLoader;
XSLoader::load('threads::shared', $XS_VERSION);
*is_shared = \&_id;
} else {
# String eval is generally evil, but we don't want these subs to
# exist at all if 'threads' is not loaded successfully.
# Vivifying them conditionally this way saves on average about 4K
# of memory per thread.
eval <<'_MARKER_';
sub share (\[$@%]) { return $_[0] }
sub is_shared (\[$@%]) { undef }
sub cond_wait (\[$@%];\[$@%]) { undef }
sub cond_timedwait (\[$@%]$;\[$@%]) { undef }
sub cond_signal (\[$@%]) { undef }
sub cond_broadcast (\[$@%]) { undef }
_MARKER_
}
### Export ###
sub import
{
# Exported subroutines
my @EXPORT = qw(share is_shared cond_wait cond_timedwait
cond_signal cond_broadcast shared_clone);
if ($threads::threads) {
push(@EXPORT, 'bless');
}
# Export subroutine names
my $caller = caller();
foreach my $sym (@EXPORT) {
no strict 'refs';
*{$caller.'::'.$sym} = \&{$sym};
}
}
# Predeclarations for internal functions
my ($make_shared);
### Methods, etc. ###
sub threads::shared::tie::SPLICE
{
require Carp;
Carp::croak('Splice not implemented for shared arrays');
}
# Create a thread-shared clone of a complex data structure or object
sub shared_clone
{
if (@_ != 1) {
require Carp;
Carp::croak('Usage: shared_clone(REF)');
}
return $make_shared->(shift, {});
}
### Internal Functions ###
# Used by shared_clone() to recursively clone
# a complex data structure or object
$make_shared = sub {
my ($item, $cloned) = @_;
# Just return the item if:
# 1. Not a ref;
# 2. Already shared; or
# 3. Not running 'threads'.
return $item if (! ref($item) || is_shared($item) || ! $threads::threads);
# Check for previously cloned references
# (this takes care of circular refs as well)
my $addr = refaddr($item);
if (exists($cloned->{$addr})) {
# Return the already existing clone
return $cloned->{$addr};
}
# Make copies of array, hash and scalar refs and refs of refs
my $copy;
my $ref_type = reftype($item);
# Copy an array ref
if ($ref_type eq 'ARRAY') {
# Make empty shared array ref
$copy = &share([]);
# Add to clone checking hash
$cloned->{$addr} = $copy;
# Recursively copy and add contents
push(@$copy, map { $make_shared->($_, $cloned) } @$item);
}
# Copy a hash ref
elsif ($ref_type eq 'HASH') {
# Make empty shared hash ref
$copy = &share({});
# Add to clone checking hash
$cloned->{$addr} = $copy;
# Recursively copy and add contents
foreach my $key (keys(%{$item})) {
$copy->{$key} = $make_shared->($item->{$key}, $cloned);
}
}
# Copy a scalar ref
elsif ($ref_type eq 'SCALAR') {
$copy = \do{ my $scalar = $$item; };
share($copy);
# Add to clone checking hash
$cloned->{$addr} = $copy;
}
# Copy of a ref of a ref
elsif ($ref_type eq 'REF') {
# Special handling for $x = \$x
if ($addr == refaddr($$item)) {
$copy = \$copy;
share($copy);
$cloned->{$addr} = $copy;
} else {
my $tmp;
$copy = \$tmp;
share($copy);
# Add to clone checking hash
$cloned->{$addr} = $copy;
# Recursively copy and add contents
$tmp = $make_shared->($$item, $cloned);
}
} else {
require Carp;
if (! defined($threads::shared::clone_warn)) {
Carp::croak("Unsupported ref type: ", $ref_type);
} elsif ($threads::shared::clone_warn) {
Carp::carp("Unsupported ref type: ", $ref_type);
}
return undef;
}
# If input item is an object, then bless the copy into the same class
if (my $class = blessed($item)) {
bless($copy, $class);
}
# Clone READONLY flag
if ($ref_type eq 'SCALAR') {
if (Internals::SvREADONLY($$item)) {
Internals::SvREADONLY($$copy, 1) if ($] >= 5.008003);
}
}
if (Internals::SvREADONLY($item)) {
Internals::SvREADONLY($copy, 1) if ($] >= 5.008003);
}
return $copy;
};
1;
__END__
=head1 NAME
threads::shared - Perl extension for sharing data structures between threads
=head1 VERSION
This document describes threads::shared version 1.58
=head1 SYNOPSIS
use threads;
use threads::shared;
my $var :shared;
my %hsh :shared;
my @ary :shared;
my ($scalar, @array, %hash);
share($scalar);
share(@array);
share(%hash);
$var = $scalar_value;
$var = $shared_ref_value;
$var = shared_clone($non_shared_ref_value);
$var = shared_clone({'foo' => [qw/foo bar baz/]});
$hsh{'foo'} = $scalar_value;
$hsh{'bar'} = $shared_ref_value;
$hsh{'baz'} = shared_clone($non_shared_ref_value);
$hsh{'quz'} = shared_clone([1..3]);
$ary[0] = $scalar_value;
$ary[1] = $shared_ref_value;
$ary[2] = shared_clone($non_shared_ref_value);
$ary[3] = shared_clone([ {}, [] ]);
{ lock(%hash); ... }
cond_wait($scalar);
cond_timedwait($scalar, time() + 30);
cond_broadcast(@array);
cond_signal(%hash);
my $lockvar :shared;
# condition var != lock var
cond_wait($var, $lockvar);
cond_timedwait($var, time()+30, $lockvar);
=head1 DESCRIPTION
By default, variables are private to each thread, and each newly created
thread gets a private copy of each existing variable. This module allows you
to share variables across different threads (and pseudo-forks on Win32). It
is used together with the L module.
This module supports the sharing of the following data types only: scalars
and scalar refs, arrays and array refs, and hashes and hash refs.
=head1 EXPORT
The following functions are exported by this module: C,
C, C, C, C, C
and C
Note that if this module is imported when L has not yet been loaded,
then these functions all become no-ops. This makes it possible to write
modules that will work in both threaded and non-threaded environments.
=head1 FUNCTIONS
=over 4
=item share VARIABLE
C takes a variable and marks it as shared:
my ($scalar, @array, %hash);
share($scalar);
share(@array);
share(%hash);
C will return the shared rvalue, but always as a reference.
Variables can also be marked as shared at compile time by using the
C<:shared> attribute:
my ($var, %hash, @array) :shared;
Shared variables can only store scalars, refs of shared variables, or
refs of shared data (discussed in next section):
my ($var, %hash, @array) :shared;
my $bork;
# Storing scalars
$var = 1;
$hash{'foo'} = 'bar';
$array[0] = 1.5;
# Storing shared refs
$var = \%hash;
$hash{'ary'} = \@array;
$array[1] = \$var;
# The following are errors:
# $var = \$bork; # ref of non-shared variable
# $hash{'bork'} = []; # non-shared array ref
# push(@array, { 'x' => 1 }); # non-shared hash ref
=item shared_clone REF
C takes a reference, and returns a shared version of its
argument, performing a deep copy on any non-shared elements. Any shared
elements in the argument are used as is (i.e., they are not cloned).
my $cpy = shared_clone({'foo' => [qw/foo bar baz/]});
Object status (i.e., the class an object is blessed into) is also cloned.
my $obj = {'foo' => [qw/foo bar baz/]};
bless($obj, 'Foo');
my $cpy = shared_clone($obj);
print(ref($cpy), "\n"); # Outputs 'Foo'
For cloning empty array or hash refs, the following may also be used:
$var = &share([]); # Same as $var = shared_clone([]);
$var = &share({}); # Same as $var = shared_clone({});
Not all Perl data types can be cloned (e.g., globs, code refs). By default,
C will L if it encounters such items. To change
this behaviour to a warning, then set the following:
$threads::shared::clone_warn = 1;
In this case, C will be substituted for the item to be cloned. If
set to zero:
$threads::shared::clone_warn = 0;
then the C substitution will be performed silently.
=item is_shared VARIABLE
C checks if the specified variable is shared or not. If shared,
returns the variable's internal ID (similar to
C (see L). Otherwise, returns C.
if (is_shared($var)) {
print("\$var is shared\n");
} else {
print("\$var is not shared\n");
}
When used on an element of an array or hash, C checks if the
specified element belongs to a shared array or hash. (It does not check
the contents of that element.)
my %hash :shared;
if (is_shared(%hash)) {
print("\%hash is shared\n");
}
$hash{'elem'} = 1;
if (is_shared($hash{'elem'})) {
print("\$hash{'elem'} is in a shared hash\n");
}
=item lock VARIABLE
C places a B lock on a variable until the lock goes out of
scope. If the variable is locked by another thread, the C call will
block until it's available. Multiple calls to C by the same thread from
within dynamically nested scopes are safe -- the variable will remain locked
until the outermost lock on the variable goes out of scope.
C follows references exactly I level:
my %hash :shared;
my $ref = \%hash;
lock($ref); # This is equivalent to lock(%hash)
Note that you cannot explicitly unlock a variable; you can only wait for the
lock to go out of scope. This is most easily accomplished by locking the
variable inside a block.
my $var :shared;
{
lock($var);
# $var is locked from here to the end of the block
...
}
# $var is now unlocked
As locks are advisory, they do not prevent data access or modification by
another thread that does not itself attempt to obtain a lock on the variable.
You cannot lock the individual elements of a container variable:
my %hash :shared;
$hash{'foo'} = 'bar';
#lock($hash{'foo'}); # Error
lock(%hash); # Works
If you need more fine-grained control over shared variable access, see
L.
=item cond_wait VARIABLE
=item cond_wait CONDVAR, LOCKVAR
The C function takes a B variable as a parameter, unlocks
the variable, and blocks until another thread does a C or
C for that same locked variable. The variable that
C blocked on is re-locked after the C is satisfied. If
there are multiple threads Cing on the same variable, all but one
will re-block waiting to reacquire the
lock on the variable. (So if you're only
using C for synchronization, give up the lock as soon as possible).
The two actions of unlocking the variable and entering the blocked wait state
are atomic, the two actions of exiting from the blocked wait state and
re-locking the variable are not.
In its second form, C takes a shared, B variable followed
by a shared, B variable. The second variable is unlocked and thread
execution suspended until another thread signals the first variable.
It is important to note that the variable can be notified even if no thread
C or C on the variable. It is therefore
important to check the value of the variable and go back to waiting if the
requirement is not fulfilled. For example, to pause until a shared counter
drops to zero:
{ lock($counter); cond_wait($counter) until $counter == 0; }
=item cond_timedwait VARIABLE, ABS_TIMEOUT
=item cond_timedwait CONDVAR, ABS_TIMEOUT, LOCKVAR
In its two-argument form, C takes a B variable and an
absolute timeout in I seconds (see L
for more) as parameters, unlocks the variable, and blocks until the
timeout is reached or another thread signals the variable. A false value is
returned if the timeout is reached, and a true value otherwise. In either
case, the variable is re-locked upon return.
Like C, this function may take a shared, B variable as an
additional parameter; in this case the first parameter is an B
condition variable protected by a distinct lock variable.
Again like C, waking up and reacquiring the lock are not atomic,
and you should always check your desired condition after this function
returns. Since the timeout is an absolute value, however, it does not have to
be recalculated with each pass:
lock($var);
my $abs = time() + 15;
until ($ok = desired_condition($var)) {
last if !cond_timedwait($var, $abs);
}
# we got it if $ok, otherwise we timed out!
=item cond_signal VARIABLE
The C function takes a B variable as a parameter and
unblocks one thread that's Cing
on that variable. If more than one
thread is blocked in a C on that variable, only one (and which one
is indeterminate) will be unblocked.
If there are no threads blocked in a C on the variable, the signal
is discarded. By always locking before
signaling, you can (with care), avoid
signaling before another thread has entered cond_wait().
C will normally generate a warning if you attempt to use it on an
unlocked variable. On the rare occasions
where doing this may be sensible, you
can suppress the warning with:
{ no warnings 'threads'; cond_signal($foo); }
=item cond_broadcast VARIABLE
The C function works similarly to C.
C, though, will unblock B the threads that are blocked in
a C on the locked variable, rather than only one.
=back
=head1 OBJECTS
L exports a version of L that
works on shared objects such that I propagate across threads.
# Create a shared 'Foo' object
my $foo :shared = shared_clone({});
bless($foo, 'Foo');
# Create a shared 'Bar' object
my $bar :shared = shared_clone({});
bless($bar, 'Bar');
# Put 'bar' inside 'foo'
$foo->{'bar'} = $bar;
# Rebless the objects via a thread
threads->create(sub {
# Rebless the outer object
bless($foo, 'Yin');
# Cannot directly rebless the inner object
#bless($foo->{'bar'}, 'Yang');
# Retrieve and rebless the inner object
my $obj = $foo->{'bar'};
bless($obj, 'Yang');
$foo->{'bar'} = $obj;
})->join();
print(ref($foo), "\n"); # Prints 'Yin'
print(ref($foo->{'bar'}), "\n"); # Prints 'Yang'
print(ref($bar), "\n"); # Also prints 'Yang'
=head1 NOTES
L is designed to disable itself silently if threads are not
available. This allows you to write modules and packages that can be used
in both threaded and non-threaded applications.
If you want access to threads, you must C