From 9fd3e33feaed09d63663007950a909d6fc587451 Mon Sep 17 00:00:00 2001 From: Leon Timmermans Date: Sun, 28 Mar 2021 18:13:08 +0200 Subject: =?UTF-8?q?Enable=20warnings=20on=20=C2=ABuse=20v5.35=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 ee8049650e..0a4f2b803c 100644 --- a/op.c +++ b/op.c @@ -8864,6 +8864,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 { -- cgit v1.2.1