Re-deprecate $[

This was something e1dccc0d3 removed that b82b06b8 failed to restore.

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;