From b851fbc1add6c3d9fa6158884279133c311a3efc Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 21 Dec 2001 00:54:49 +0000
Subject: Make using U+FDD0..U+FDEF (noncharacters since Unicode 3.1),
 U+...FFFE, U+...FFFF, and characters beyond U+10FFFF (the Unicode maximum
 code point) warnable offenses.

p4raw-id: //depot/perl@13823
---
 pp.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'pp.c')

diff --git a/pp.c b/pp.c
index 0ddfefed6b..eb386eede1 100644
--- a/pp.c
+++ b/pp.c
@@ -2258,7 +2258,7 @@ PP(pp_complement)
 	      while (tmps < send) {
 		  UV c = utf8n_to_uvchr(tmps, send-tmps, &l, UTF8_ALLOW_ANYUV);
 		  tmps += UTF8SKIP(tmps);
-		  result = uvchr_to_utf8(result, ~c);
+		  result = uvchr_to_utf8_flags(result, ~c, UNICODE_ALLOW_ANY);
 	      }
 	      *result = '\0';
 	      result -= targlen;
@@ -3148,7 +3148,8 @@ PP(pp_chr)
 
     if (value > 255 && !IN_BYTES) {
 	SvGROW(TARG, UNISKIP(value)+1);
-	tmps = (char*)uvchr_to_utf8((U8*)SvPVX(TARG), value);
+	tmps = (char*)uvchr_to_utf8_flags((U8*)SvPVX(TARG), value,
+					  UNICODE_ALLOW_SUPER);
 	SvCUR_set(TARG, tmps - SvPVX(TARG));
 	*tmps = '\0';
 	(void)SvPOK_only(TARG);
-- 
cgit v1.2.1