projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
45aff27
)
arybase.xs: Don’t use arybase::[
author
Father Chrysostomos
<sprout@cpan.org>
Thu, 17 Nov 2011 17:38:20 +0000
(09:38 -0800)
committer
Father 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
patch
|
blob
|
history
diff --git
a/ext/arybase/arybase.xs
b/ext/arybase/arybase.xs
index
7cee0dc
..
765b1eb
100644
(file)
--- 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);
}