From 5d2322f69724120e28254af6693e351e2a014739 Mon Sep 17 00:00:00 2001 From: Leon Timmermans Date: Sun, 28 Mar 2021 18:13:08 +0200 Subject: [PATCH] =?UTF-8?q?Enable=20warnings=20on=20=C2=ABuse=20v5.33?= =?UTF-8?q?=C2=BB?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- op.c | 3 +++ 1 file changed, 3 insertions(+) diff --git a/op.c b/op.c index 61f7eaad7513..c93094d18969 100644 --- a/op.c +++ b/op.c @@ -8858,6 +8858,9 @@ Perl_utilize(pTHX_ int aver, I32 floor, OP *version, OP *idop, OP *arg) PL_hints |= HINT_STRICT_SUBS; if (!(PL_hints & HINT_EXPLICIT_STRICT_VARS)) PL_hints |= HINT_STRICT_VARS; + + if (vcmp(use_version, sv_2mortal(upg_version(newSVpvs("5.035000"), FALSE))) >= 0) + free_and_set_cop_warnings(&PL_compiling, pWARN_ALL); } /* otherwise they are off */ else {