diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-12-22 10:10:53 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-12-24 09:25:13 -0800 |
| commit | 61d30f47d59933fc5eb461d573a3a961fa08aa2b (patch) | |
| tree | d8e24edc3c66b02b531b3ea8689666690caf2d1b /ext | |
| parent | 67bdaa9e280ffc7971297e951d22b899b3dacd93 (diff) | |
| download | perl-61d30f47d59933fc5eb461d573a3a961fa08aa2b.tar.gz | |
Use only \w+ for internal feature names
This will make it possible to create macros for each.
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/arybase/arybase.xs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/ext/arybase/arybase.xs b/ext/arybase/arybase.xs index cbc0741f0c..14fd03c768 100644 --- a/ext/arybase/arybase.xs +++ b/ext/arybase/arybase.xs @@ -107,7 +107,7 @@ STATIC SV * ab_hint(pTHX_ const bool create) { STATIC IV current_base(pTHX) { #define current_base() current_base(aTHX) SV *hsv = ab_hint(0); - assert(FEATURE_IS_ENABLED_d("$[")); + assert(FEATURE_IS_ENABLED_d("arybase")); if (!hsv || !SvOK(hsv)) return 0; return SvIV(hsv); } @@ -173,7 +173,7 @@ STATIC void ab_process_assignment(pTHX_ OP *left, OP *right) { STATIC OP *ab_ck_sassign(pTHX_ OP *o) { o = (*ab_old_ck_sassign)(aTHX_ o); - if (o->op_type == OP_SASSIGN && FEATURE_IS_ENABLED_d("$[")) { + if (o->op_type == OP_SASSIGN && FEATURE_IS_ENABLED_d("arybase")) { OP *right = cBINOPx(o)->op_first; OP *left = right->op_sibling; if (left) ab_process_assignment(left, right); @@ -183,7 +183,7 @@ STATIC OP *ab_ck_sassign(pTHX_ OP *o) { STATIC OP *ab_ck_aassign(pTHX_ OP *o) { o = (*ab_old_ck_aassign)(aTHX_ o); - if (o->op_type == OP_AASSIGN && FEATURE_IS_ENABLED_d("$[")) { + if (o->op_type == OP_AASSIGN && FEATURE_IS_ENABLED_d("arybase")) { OP *right = cBINOPx(o)->op_first; OP *left = cBINOPx(right->op_sibling)->op_first->op_sibling; right = cBINOPx(right)->op_first->op_sibling; @@ -352,7 +352,7 @@ static OP *ab_ck_base(pTHX_ OP *o) PL_op->op_type); } o = (*old_ck)(aTHX_ o); - if (!FEATURE_IS_ENABLED_d("$[")) return o; + if (!FEATURE_IS_ENABLED_d("arybase")) return o; /* We need two switch blocks, as the type may have changed. */ switch (o->op_type) { case OP_AELEM : @@ -425,7 +425,7 @@ BOOT: void FETCH(...) PREINIT: - SV *ret = FEATURE_IS_ENABLED_d("$[") + SV *ret = FEATURE_IS_ENABLED_d("arybase") ? cop_hints_fetch_pvs(PL_curcop, "$[", 0) : 0; PPCODE: @@ -435,7 +435,7 @@ FETCH(...) void STORE(SV *sv, IV newbase) CODE: - if (FEATURE_IS_ENABLED_d("$[")) { + if (FEATURE_IS_ENABLED_d("arybase")) { SV *base = cop_hints_fetch_pvs(PL_curcop, "$[", 0); if (SvOK(base) ? SvIV(base) == newbase : !newbase) XSRETURN_EMPTY; Perl_croak(aTHX_ "That use of $[ is unsupported"); @@ -453,7 +453,7 @@ FETCH(SV *sv) if (!SvROK(sv) || SvTYPE(SvRV(sv)) >= SVt_PVAV) Perl_croak(aTHX_ "Not a SCALAR reference"); { - SV *base = FEATURE_IS_ENABLED_d("$[") + SV *base = FEATURE_IS_ENABLED_d("arybase") ? cop_hints_fetch_pvs(PL_curcop, "$[", 0) : 0; SvGETMAGIC(SvRV(sv)); @@ -469,7 +469,7 @@ STORE(SV *sv, SV *newbase) if (!SvROK(sv) || SvTYPE(SvRV(sv)) >= SVt_PVAV) Perl_croak(aTHX_ "Not a SCALAR reference"); { - SV *base = FEATURE_IS_ENABLED_d("$[") + SV *base = FEATURE_IS_ENABLED_d("arybase") ? cop_hints_fetch_pvs(PL_curcop, "$[", 0) : 0; SvGETMAGIC(newbase); |