Merge 3ed68da into 1e43c13

Perl · May 8, 2021 · 21e44f5 · 21e44f5
2 parents 1e43c13 + 3ed68da
commit 21e44f5
Showing 1 changed file with 3 additions and 0 deletions.
diff --git 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.