Help for this page

Select Code to Download


  1. or download this
    >    encoding.dll!PerlIOEncode_getarg(interpreter * my_perl=0x00b430b4
    +, _PerlIO * * f=0x00b4382c, clone_params * param=0x0012fa98, int flag
    +s=1)  Line 62 + 0x6    C
         perl517.dll!PerlIOBase_dup(interpreter * my_perl=0x00b430b4, _Per
    +lIO * * f=0x00000000, _PerlIO * * o=0x008f43f4, clone_params * param=
    +0x0012fa98, int flags=1)  Line 2303 + 0xc    C
    ...
         perl517.dll!RunPerl(int argc=2, char * * argv=0x01342478, char * 
    +* env=0x00342da8)  Line 270 + 0x6    C
         perl.exe!mainCRTStartup()  Line 398 + 0xe    C
         kernel32.dll!_BaseProcessStart@4()  + 0x23
    
  2. or download this
    SV *
    PerlIOEncode_getarg(pTHX_ PerlIO * f, CLONE_PARAMS * param, int flags)
    ...
        dSP;
        /* Not 100% sure stack swap is right thing to do during dup ... */
        PUSHSTACKi(PERLSI_MAGIC); /* crash here ~bulk88*/