allow "\x{12ab}" even without C<use utf8>

p4raw-id: //depot/perl@5000

1 files changed, 0 insertions, 6 deletions

diff --git a/toke.c b/toke.c
index 22db523112..e1eb817021 100644
--- a/toke.c
+++ b/toke.c
@@ -1352,12 +1352,6 @@ S_scan_const(pTHX_ char *start)
 			yyerror("Missing right brace on \\x{}");
 			e = s;
 		    }
-		    if (!utf) {
-			dTHR;
-			if (ckWARN(WARN_UTF8))
-			    Perl_warner(aTHX_ WARN_UTF8,
-				   "Use of \\x{} without utf8 declaration");
-		    }
 		    /* note: utf always shorter than hex */
 		    d = (char*)uv_to_utf8((U8*)d,
 					  (UV)scan_hex(s + 1, e - s - 1, &len));