Fast enabling of strictures when version 5.11.0 is required

We don't load strict.pm, we just manipulate the hint bits.
Plus more tests.

1 files changed, 1 insertions, 4 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 75d98dde1c..eab96245a8 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3258,12 +3258,9 @@ PP(pp_require)
 	/* If a version >= 5.11.0 is requested, strictures are on by default! */
 	if (PL_compcv &&
 		vcmp(sv, sv_2mortal(upg_version(newSVnv(5.011000), FALSE))) >= 0) {
-	    ENTER;
-	    Perl_load_module(aTHX_ 0, newSVpvs("strict"), NULL, NULL, NULL);
-	    LEAVE;
+	    PL_hints |= (HINT_STRICT_REFS | HINT_STRICT_SUBS | HINT_STRICT_VARS);
 	}
 
-
 	RETPUSHYES;
     }
     name = SvPV_const(sv, len);