diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-04-07 12:31:16 +0200 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-04-07 12:31:16 +0200 |
commit | 55b6781562aff32ef6499c4f263ab251254ca5cb (patch) | |
tree | d6e518628983def34281f18c57ccada4991714ba /op.c | |
parent | f67e8e0b613ff0f60cec100cef479f7e4c895e84 (diff) | |
download | perl-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.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -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; |