Merge 3ed68da into aa467bd

Perl · May 21, 2021 · e975fcc · e975fcc
2 parents aa467bd + 3ed68da
commit e975fcc
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.