summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
Diffstat (limited to 'pp_ctl.c')
-rw-r--r--pp_ctl.c5
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);