Turn the I/O Unicode error by default on, but the

character-generating Unicode error by default off,
as Larry suggested.

p4raw-id: //depot/perl@14505

1 files changed, 1 insertions, 2 deletions

diff --git a/pp.c b/pp.c
index 2d462c45a3..51facc0730 100644
--- a/pp.c
+++ b/pp.c
@@ -3168,8 +3168,7 @@ PP(pp_chr)
 
     if (value > 255 && !IN_BYTES) {
 	SvGROW(TARG, UNISKIP(value)+1);
-	tmps = (char*)uvchr_to_utf8_flags((U8*)SvPVX(TARG), value,
-					  UNICODE_ALLOW_SUPER);
+	tmps = (char*)uvchr_to_utf8_flags((U8*)SvPVX(TARG), value, 0);
 	SvCUR_set(TARG, tmps - SvPVX(TARG));
 	*tmps = '\0';
 	(void)SvPOK_only(TARG);