Select Code to Download

#define DIRf_HINT_WANT_UTF8_RESULT     1
#define DIRf_HINT_PARAM1_IS_UTF8       2
...
    SET_DIR_UTF8_HINTS((ret) ?  DIRf_RESULT_IS_UTF8 : 0)
#define PERLIO_UTF8_CLEAR_CONTEXT                       \
    SET_DIR_UTF8_HINTS(0)

    PERLIO_UTF8_CONTEXT_FROM_SV(sv);
    if (PL_op->op_type == OP_LSTAT)
...
    else
        PL_laststatval = PerlLIO_stat(SvPV_nolen_const(PL_statname), &
+PL_statcache);
    PERLIO_UTF8_CLEAR_CONTEXT;

BOOL    do_utf8 = isDIR_PARAM_UTF8 && IsWin2000();
...
...
    res = do_utf8 ?
       wstat(( WCHAR*) path, sbuf) :
       stat(path, sbuf);