diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-11-17 09:38:20 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-11-17 10:22:24 -0800 |
commit | 184a899d763a26b6a80931a6502c5f95118eb106 (patch) | |
tree | 4db1bf35c0c5cf2c51fdb2e5227a1652935897ff /ext/arybase | |
parent | 45aff279082494e5b76a5348427b63c8be1066aa (diff) | |
download | perl-184a899d763a26b6a80931a6502c5f95118eb106.tar.gz |
arybase.xs: Don’t use arybase::[
arybase was changing $[=1 to $arybase::[ = 1 to avoid any run-time
effects. In case this module is ever dual-lifed, we ought to avoid
punctuation variables even outside the main stash. See bug #76138.
This is a classic example of paranoia.
Diffstat (limited to 'ext/arybase')
-rw-r--r-- | ext/arybase/arybase.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/arybase/arybase.xs b/ext/arybase/arybase.xs index 7cee0dc40e..765b1eb18b 100644 --- a/ext/arybase/arybase.xs +++ b/ext/arybase/arybase.xs @@ -151,7 +151,7 @@ STATIC void ab_neuter_dollar_bracket(pTHX_ OP *o) { */ oldc = cUNOPx(o)->op_first; newc = newGVOP(OP_GV, 0, - gv_fetchpvs("arybase::[", GV_ADDMULTI, SVt_PVGV)); + gv_fetchpvs("arybase::leftbrack", GV_ADDMULTI, SVt_PVGV)); cUNOPx(o)->op_first = newc; op_free(oldc); } |