From 3ed68dae7121cf1b8dc35d3f708dac253f32edf5 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 594d4ee9c329..bbdc13b7e544 100644 --- a/op.c +++ b/op.c @@ -8866,6 +8866,9 @@ Perl_utilize(pTHX_ int aver, I32 floor, OP *version, OP *idop, OP *arg) if (!(PL_hints & HINT_EXPLICIT_STRICT_VARS)) PL_hints &= ~HINT_STRICT_VARS; } + + if (vcmp(use_version, sv_2mortal(upg_version(newSVnv(5.033000), FALSE))) >= 0) + free_and_set_cop_warnings(&PL_compiling, pWARN_ALL); } /* The "did you use incorrect case?" warning used to be here.