Select Code to Download

(*Perl_IStdIO_ptr(((PerlInterpreter *)Perl_get_context())))
->pStderr((*Perl_IStdIO_ptr((( PerlInterpreter* ) Perl_get_context()))
+))

Perl_get_context(void) {
    DWORD err = GetLastError();
...
    SetLastError(err);
    return result;
}

FILE*
PerlStdIOStderr(struct IPerlStdIO* piPerl)
{
    return win32_stderr();
}

DllExport FILE *
win32_stderr(void)
{
    return (stderr);
}

win32_stderr(void){
    return ((&_iob[2]));
}