Function at 0x401346
Capabilities:
Link many functions at runtime

Disassembly:
push esi
mov esi, dword [sym.imp.KERNEL32.dll_GetProcAddress]
push edi
mov edi, dword [esp + 0xc]
push str.Perl_Iendav_ptr
push edi
call esi
test eax, eax
mov dword [0x40d644], eax
jne 0x40136a
xor eax, eax
jmp 0x4015ef
push str.Perl_Iperl_destruct_level_ptr
push edi
call esi
test eax, eax
mov dword [0x40d610], eax
je 0x401363
push str.Perl_Isv_no_ptr
push edi
call esi
test eax, eax
mov dword [0x40d5ec], eax
je 0x401363
push str.Perl_Isv_undef_ptr
push edi
call esi
test eax, eax
mov dword [0x40d64c], eax
je 0x401363
push str.Perl_TXpv_ptr
push edi
call esi
test eax, eax
mov dword [0x40d620], eax
je 0x401363
push str.Perl_Tcurstackinfo_ptr
push edi
call esi
test eax, eax
mov dword [0x40d5f4], eax
je 0x401363
push str.Perl_Tmarkstack_ptr_ptr
push edi
call esi
test eax, eax
mov dword [0x40d61c], eax
je 0x401363
push str.Perl_Tstack_base_ptr
push edi
call esi
test eax, eax
mov dword [0x40d618], eax
je 0x401363
push str.Perl_Tstack_max_ptr
push edi
call esi
test eax, eax
mov dword [0x40d640], eax
je 0x401363
push str.Perl_Tstack_sp_ptr
push edi
call esi
test eax, eax
mov dword [0x40d648], eax
je 0x401363
push str.Perl_croak_nocontext
push edi
call esi
test eax, eax
mov dword [0x40d624], eax
je 0x401363
push str.Perl_get_context
push edi
call esi
test eax, eax
mov dword [0x40d608], eax
je 0x401363
push str.Perl_get_sv
push edi
call esi
test eax, eax
mov dword [0x40d600], eax
je 0x401363
push str.Perl_gv_fetchpv
push edi
call esi
test eax, eax
mov dword [0x40d5f8], eax
je 0x401363
push str.Perl_newSV
push edi
call esi
test eax, eax
mov dword [0x40d5e8], eax
je 0x401363
push str.Perl_newSVpv
push edi
call esi
test eax, eax
mov dword [0x40d63c], eax
je 0x401363
push str.Perl_newXS
push edi
call esi
test eax, eax
mov dword [0x40d5d4], eax
je 0x401363
push str.Perl_set_context
push edi
call esi
test eax, eax
mov dword [0x40d604], eax
je 0x401363
push str.Perl_stack_grow
push edi
call esi
test eax, eax
mov dword [0x40d638], eax
je 0x401363
push str.Perl_sv_2bool
push edi
call esi
test eax, eax
mov dword [0x40d628], eax
je 0x401363
push str.Perl_sv_2iv
push edi
call esi
test eax, eax
mov dword [0x40d630], eax
je 0x401363
push str.Perl_sv_2mortal
push edi
call esi
test eax, eax
mov dword [0x40d5fc], eax
je 0x401363
push str.Perl_sv_2pv
push edi
call esi
test eax, eax
mov dword [0x40d634], eax
je 0x401363
push str.Perl_sv_setiv
push edi
call esi
test eax, eax
mov dword [0x40d5e4], eax
je 0x401363
push str.Perl_sv_setpv
push edi
call esi
test eax, eax
mov dword [0x40d5cc], eax
je 0x401363
push str.Perl_win32_init
push edi
call esi
test eax, eax
mov dword [0x40d60c], eax
je 0x401363
push str.boot_DynaLoader
push edi
call esi
test eax, eax
mov dword [0x40d614], eax
je 0x401363
push str.perl_alloc
push edi
call esi
test eax, eax
mov dword [0x40d5d0], eax
je 0x401363
push str.perl_construct
push edi
call esi
test eax, eax
mov dword [0x40d5dc], eax
je 0x401363
push str.perl_destruct
push edi
call esi
test eax, eax
mov dword [0x40d5d8], eax
je 0x401363
push str.perl_free
push edi
call esi
test eax, eax
mov dword [0x40d5e0], eax
je 0x401363
push str.perl_parse
push edi
call esi
test eax, eax
mov dword [0x40d62c], eax
je 0x401363
push str.perl_run
push edi
call esi
xor ecx, ecx
mov dword [0x40d5f0], eax
test eax, eax
setne cl
mov eax, ecx
pop edi
pop esi
ret