summaryrefslogtreecommitdiff
path: root/ext/arybase
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2011-11-17 09:38:20 -0800
committerFather Chrysostomos <sprout@cpan.org>2011-11-17 10:22:24 -0800
commit184a899d763a26b6a80931a6502c5f95118eb106 (patch)
tree4db1bf35c0c5cf2c51fdb2e5227a1652935897ff /ext/arybase
parent45aff279082494e5b76a5348427b63c8be1066aa (diff)
downloadperl-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.xs2
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);
}