arybase.xs: Don’t use arybase::[
authorFather Chrysostomos <sprout@cpan.org>
Thu, 17 Nov 2011 17:38:20 +0000 (09:38 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 17 Nov 2011 18:22:24 +0000 (10:22 -0800)
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.

ext/arybase/arybase.xs

index 7cee0dc..765b1eb 100644 (file)
@@ -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);
 }