In perl.git, the branch maint-5.12 has been updated <http://perl5.git.perl.org/perl.git/commitdiff/66dc6eccbbef5ab6051b190fd068e45d6e503930?hp=e41dba3a72ad72a97b65d55bb763bd9eb4bd9c41>
- Log ----------------------------------------------------------------- commit 66dc6eccbbef5ab6051b190fd068e45d6e503930 Author: David Golden <[email protected]> Date: Tue Jul 6 00:33:31 2010 -0400 Don't set strict for 'no 6;' Commit faee19b51573e81abe8811f1256a1d27777d6d04 was incomplete and only stopped features from being enabled under 'no'. This patch merges all 'use N.NN' type logic into a single if clause and then checks version numbers in separate if statements within it. ----------------------------------------------------------------------- Summary of changes: pp_ctl.c | 29 ++++++++++++++--------------- 1 files changed, 14 insertions(+), 15 deletions(-) diff --git a/pp_ctl.c b/pp_ctl.c index e72049a..a1784d1 100644 --- a/pp_ctl.c +++ b/pp_ctl.c @@ -3332,21 +3332,20 @@ PP(pp_require) } /* We do this only with "use", not "require" or "no". */ - if (PL_compcv && - !(cUNOP->op_first->op_private & OPpCONST_NOVER) && - /* If we request a version >= 5.9.5, load feature.pm with the - * feature bundle that corresponds to the required version. */ - vcmp(sv, sv_2mortal(upg_version(newSVnv(5.009005), FALSE))) >= 0) { - SV *const importsv = vnormal(sv); - *SvPVX_mutable(importsv) = ':'; - ENTER_with_name("load_feature"); - Perl_load_module(aTHX_ 0, newSVpvs("feature"), NULL, importsv, NULL); - LEAVE_with_name("load_feature"); - } - /* 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) { - PL_hints |= (HINT_STRICT_REFS | HINT_STRICT_SUBS | HINT_STRICT_VARS); + if (PL_compcv && !(cUNOP->op_first->op_private & OPpCONST_NOVER)) { + /* If we request a version >= 5.9.5, load feature.pm with the + * feature bundle that corresponds to the required version. */ + if (vcmp(sv, sv_2mortal(upg_version(newSVnv(5.009005), FALSE))) >= 0) { + SV *const importsv = vnormal(sv); + *SvPVX_mutable(importsv) = ':'; + ENTER_with_name("load_feature"); + Perl_load_module(aTHX_ 0, newSVpvs("feature"), NULL, importsv, NULL); + LEAVE_with_name("load_feature"); + } + /* If a version >= 5.11.0 is requested, strictures are on by default! */ + if (vcmp(sv, sv_2mortal(upg_version(newSVnv(5.011000), FALSE))) >= 0) { + PL_hints |= (HINT_STRICT_REFS | HINT_STRICT_SUBS | HINT_STRICT_VARS); + } } RETPUSHYES; -- Perl5 Master Repository
