summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2009-04-07 12:31:16 +0200
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2009-04-07 12:31:16 +0200
commit55b6781562aff32ef6499c4f263ab251254ca5cb (patch)
treed6e518628983def34281f18c57ccada4991714ba /op.c
parentf67e8e0b613ff0f60cec100cef479f7e4c895e84 (diff)
downloadperl-55b6781562aff32ef6499c4f263ab251254ca5cb.tar.gz
Deprecate assignment to $[
Based on a patch by James Mastros : Subject: Deprecating $[ Message-ID: <abc933c50904020726x31776ab5m192036429af16f03@mail.gmail.com>
Diffstat (limited to 'op.c')
-rw-r--r--op.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/op.c b/op.c
index b88931960f..517f6483ed 100644
--- a/op.c
+++ b/op.c
@@ -4355,6 +4355,7 @@ Perl_newASSIGNOP(pTHX_ I32 flags, OP *left, I32 optype, OP *right)
PL_eval_start = 0;
else {
if (!PL_madskills) { /* assignment to $[ is ignored when making a mad dump */
+ deprecate("assignment to $[");
op_free(o);
o = newSVOP(OP_CONST, 0, newSViv(CopARYBASE_get(&PL_compiling)));
o->op_private |= OPpCONST_ARYBASE;