diff options
Diffstat (limited to 'pp_ctl.c')
-rw-r--r-- | pp_ctl.c | 8 |
1 files changed, 8 insertions, 0 deletions
@@ -2694,7 +2694,11 @@ Perl_sv_compile_2op(pTHX_ SV *sv, OP** startop, char *code, AV** avp) #else SAVEVPTR(PL_op); #endif +#ifdef EBCDIC + PL_hints = HINT_BYTE; +#else PL_hints = 0; +#endif PL_op = &dummy; PL_op->op_type = OP_ENTEREVAL; @@ -3240,7 +3244,11 @@ trylocal: { PL_rsfp = tryrsfp; SAVEHINTS(); +#ifdef EBCDIC + PL_hints = HINT_BYTE; +#else PL_hints = 0; +#endif SAVESPTR(PL_compiling.cop_warnings); if (PL_dowarn & G_WARN_ALL_ON) PL_compiling.cop_warnings = pWARN_ALL ; |