Patch from Peter Prymmer to disable utf8 in EBCDIC platforms.

p4raw-id: //depot/perl@7152

1 files changed, 4 insertions, 0 deletions

diff --git a/utf8.c b/utf8.c
index 3ab402c497..a12d8d4487 100644
--- a/utf8.c
+++ b/utf8.c
@@ -910,7 +910,11 @@ Perl_swash_init(pTHX_ char* pkg, char* name, SV *listsv, I32 minbits, I32 none)
     PUTBACK;
     ENTER;
     SAVEI32(PL_hints);
+#ifdef EBCDIC
+    PL_hints = HINT_BYTE;
+#else
     PL_hints = 0;
+#endif
     save_re_context();
     if (PL_curcop == &PL_compiling)	/* XXX ought to be handled by lex_start */
 	strncpy(tmpbuf, PL_tokenbuf, sizeof tmpbuf);