Patch from Peter Prymmer to disable utf8 in EBCDIC platforms.

p4raw-id: //depot/perl@7152

1 files changed, 8 insertions, 0 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index c949e789a1..9204879e08 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -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 ;