From a158cd66c53b18813b4afae9fc71e3cb355ed7a6 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Tue, 29 Mar 2022 04:36:15 -0600 Subject: toke.c: Move variable set to after possible exit It's just a little bit better to do the warning (which could be made fatal) before setting something that's only needed later. --- toke.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'toke.c') diff --git a/toke.c b/toke.c index ae89bdcc38..95de997d51 100644 --- a/toke.c +++ b/toke.c @@ -11438,7 +11438,6 @@ Perl_scan_str(pTHX_ char *start, int keep_bracketed_quoted, int keep_delims, int bytes. */ close_delim_str = legal_paired_closing_delims + (tmps - legal_paired_opening_delims); - close_delim_code = valid_utf8_to_uvchr((U8 *) close_delim_str, NULL); /* The list of paired delimiters contains all the ASCII ones that have * always been legal, and no other ASCIIs. Don't raise a message if @@ -11449,6 +11448,8 @@ Perl_scan_str(pTHX_ char *start, int keep_bracketed_quoted, int keep_delims, int "Use of '%" UTF8f "' is experimental as a string delimiter", UTF8fARG(UTF, delim_byte_len, open_delim_str)); } + + close_delim_code = valid_utf8_to_uvchr((U8 *) close_delim_str, NULL); } else { /* Here, the delimiter isn't paired, hence the close is the same as the open; and has aready been set up. But make sure it isn't -- cgit v1.2.1