diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-12-22 20:37:59 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-12-24 09:25:17 -0800 |
| commit | 2846acbffa436a8a6bda1f5b38257b700500bbf0 (patch) | |
| tree | 387345b45ef14619880d4b8c9aa4c1a5f903c5bb /gv.c | |
| parent | e233f0c5ea875bcd70051a941babeb77361bdac1 (diff) | |
| download | perl-2846acbffa436a8a6bda1f5b38257b700500bbf0.tar.gz | |
Use new feature-testing macros
Instead of using FEATURE_IS_ENABLED("say"), etc., now use
FEATURE_SAY_IS_ENABLED instead. These new macros, in feature.h, also
check feature bundle hints in PL_hints, so we can start using those
hints. Two commits ago, feature.pm started setting them.
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -37,6 +37,7 @@ Perl stores its global variables. #include "perl.h" #include "overload.c" #include "keywords.h" +#include "feature.h" static const char S_autoload[] = "AUTOLOAD"; static const STRLEN S_autolen = sizeof(S_autoload)-1; @@ -1940,7 +1941,7 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags, goto magicalize; case '[': /* $[ */ if ((sv_type == SVt_PV || sv_type == SVt_PVGV) - && FEATURE_IS_ENABLED_d("arybase")) { + && FEATURE_ARYBASE_IS_ENABLED) { if (addmg) (void)hv_store(stash,name,len,(SV *)gv,0); require_tie_mod(gv,name,newSVpvs("arybase"),"FETCH",0); addmg = 0; |