diff options
Diffstat (limited to 'pp_ctl.c')
-rw-r--r-- | pp_ctl.c | 5 |
1 files changed, 1 insertions, 4 deletions
@@ -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); |