From a36fec492e3c37aae28f47766892f34b74d51b31 Mon Sep 17 00:00:00 2001
From: Tony Cook <tony@develop-help.com>
Date: Tue, 6 Dec 2022 14:41:23 +1100
Subject: Enable the current "Old package separator used in string" by default

If we're going to be removing this entirely, the behavior of
existing code is going to change.  Make sure everyone sees it.
---
 toke.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'toke.c')

diff --git a/toke.c b/toke.c
index ffb9201147..afe245bf7e 100644
--- a/toke.c
+++ b/toke.c
@@ -10157,7 +10157,7 @@ S_parse_ident(pTHX_ char **s, char **d, char * const e, int allow_package,
             break;
     }
     if (UNLIKELY(tick_warn && saw_tick && PL_lex_state == LEX_INTERPNORMAL
-              && !PL_lex_brackets && ckWARN(WARN_SYNTAX))) {
+              && !PL_lex_brackets && ckWARN_d(WARN_SYNTAX))) {
         char *this_d;
         char *d2;
         Newx(this_d, *s - olds + saw_tick + 2, char); /* +2 for $# */
-- 
cgit v1.2.1