diff options
Diffstat (limited to 'ext')
-rw-r--r-- | ext/arybase/arybase.xs | 3 | ||||
-rw-r--r-- | ext/arybase/t/aeach.t | 2 | ||||
-rw-r--r-- | ext/arybase/t/aelem.t | 2 | ||||
-rw-r--r-- | ext/arybase/t/akeys.t | 2 | ||||
-rw-r--r-- | ext/arybase/t/arybase.t | 1 | ||||
-rw-r--r-- | ext/arybase/t/aslice.t | 2 | ||||
-rw-r--r-- | ext/arybase/t/av2arylen.t | 2 | ||||
-rw-r--r-- | ext/arybase/t/index.t | 2 | ||||
-rw-r--r-- | ext/arybase/t/lslice.t | 2 | ||||
-rw-r--r-- | ext/arybase/t/pos.t | 2 | ||||
-rw-r--r-- | ext/arybase/t/scope.t | 2 | ||||
-rw-r--r-- | ext/arybase/t/splice.t | 2 | ||||
-rw-r--r-- | ext/arybase/t/substr.t | 2 |
13 files changed, 15 insertions, 11 deletions
diff --git a/ext/arybase/arybase.xs b/ext/arybase/arybase.xs index 765b1eb18b..d654b545e5 100644 --- a/ext/arybase/arybase.xs +++ b/ext/arybase/arybase.xs @@ -162,6 +162,9 @@ STATIC void ab_process_assignment(pTHX_ OP *left, OP *right) { if (ab_op_is_dollar_bracket(left) && right->op_type == OP_CONST) { set_arybase_to(SvIV(cSVOPx_sv(right))); ab_neuter_dollar_bracket(left); + Perl_ck_warner_d(aTHX_ + packWARN(WARN_DEPRECATED), "Use of assignment to $[ is deprecated" + ); } } diff --git a/ext/arybase/t/aeach.t b/ext/arybase/t/aeach.t index f56d39e246..241677acb0 100644 --- a/ext/arybase/t/aeach.t +++ b/ext/arybase/t/aeach.t @@ -1,4 +1,4 @@ -use warnings; +use warnings; no warnings 'deprecated'; use strict; BEGIN { diff --git a/ext/arybase/t/aelem.t b/ext/arybase/t/aelem.t index d6b8c38149..c26a2a80c3 100644 --- a/ext/arybase/t/aelem.t +++ b/ext/arybase/t/aelem.t @@ -1,4 +1,4 @@ -use warnings; +use warnings; no warnings 'deprecated'; use strict; use Test::More tests => 33; diff --git a/ext/arybase/t/akeys.t b/ext/arybase/t/akeys.t index 45af13bf47..53e9db15e7 100644 --- a/ext/arybase/t/akeys.t +++ b/ext/arybase/t/akeys.t @@ -1,4 +1,4 @@ -use warnings; +use warnings; no warnings 'deprecated'; use strict; BEGIN { diff --git a/ext/arybase/t/arybase.t b/ext/arybase/t/arybase.t index a7edaf41bc..f3d32874e2 100644 --- a/ext/arybase/t/arybase.t +++ b/ext/arybase/t/arybase.t @@ -3,6 +3,7 @@ # Basic tests for $[ as a variable # plus miscellaneous bug fix tests +no warnings 'deprecated'; use Test::More tests => 7; sub outside_base_scope { return "${'['}" } diff --git a/ext/arybase/t/aslice.t b/ext/arybase/t/aslice.t index 38aa87b7a9..f4a507da6b 100644 --- a/ext/arybase/t/aslice.t +++ b/ext/arybase/t/aslice.t @@ -1,4 +1,4 @@ -use warnings; +use warnings; no warnings 'deprecated'; use strict; use Test::More tests => 18; diff --git a/ext/arybase/t/av2arylen.t b/ext/arybase/t/av2arylen.t index 988cca92f7..6c1deb2de4 100644 --- a/ext/arybase/t/av2arylen.t +++ b/ext/arybase/t/av2arylen.t @@ -1,4 +1,4 @@ -use warnings; +use warnings; no warnings 'deprecated'; use strict; use Test::More tests => 8; diff --git a/ext/arybase/t/index.t b/ext/arybase/t/index.t index 58efe74d5a..86dde88865 100644 --- a/ext/arybase/t/index.t +++ b/ext/arybase/t/index.t @@ -1,4 +1,4 @@ -use warnings; +use warnings; no warnings 'deprecated'; use strict; use Test::More tests => 12; diff --git a/ext/arybase/t/lslice.t b/ext/arybase/t/lslice.t index 6247a5e810..c012b84f5e 100644 --- a/ext/arybase/t/lslice.t +++ b/ext/arybase/t/lslice.t @@ -1,4 +1,4 @@ -use warnings; +use warnings; no warnings 'deprecated'; use strict; use Test::More tests => 11; diff --git a/ext/arybase/t/pos.t b/ext/arybase/t/pos.t index f2f6504a5b..970e17eaa0 100644 --- a/ext/arybase/t/pos.t +++ b/ext/arybase/t/pos.t @@ -1,4 +1,4 @@ -use warnings; +use warnings; no warnings 'deprecated'; use strict; use Test::More tests => 12; diff --git a/ext/arybase/t/scope.t b/ext/arybase/t/scope.t index 5fb09930e2..07b4176977 100644 --- a/ext/arybase/t/scope.t +++ b/ext/arybase/t/scope.t @@ -1,4 +1,4 @@ -use warnings; +use warnings; no warnings 'deprecated'; use strict; use Test::More tests => 14; diff --git a/ext/arybase/t/splice.t b/ext/arybase/t/splice.t index e2db280a93..9fd618a635 100644 --- a/ext/arybase/t/splice.t +++ b/ext/arybase/t/splice.t @@ -1,4 +1,4 @@ -use warnings; +use warnings; no warnings 'deprecated'; use strict; use Test::More tests => 23; diff --git a/ext/arybase/t/substr.t b/ext/arybase/t/substr.t index 793293be8b..ecfba48bae 100644 --- a/ext/arybase/t/substr.t +++ b/ext/arybase/t/substr.t @@ -1,4 +1,4 @@ -use warnings; +use warnings; no warnings 'deprecated'; use strict; use Test::More tests => 6; |