From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 13 Oct 2009 12:32:50 +0000 (+0100)
Subject: Add no warnings 'deprecated' to a test that assigns to $[
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f560054f038f9369201fb083944780fa1a0ad949;p=p5sagit%2Fp5-mst-13.2.git

Add no warnings 'deprecated' to a test that assigns to $[
---

diff --git a/t/op/index.t b/t/op/index.t
index 834814e..6cc3f42 100644
--- a/t/op/index.t
+++ b/t/op/index.t
@@ -137,7 +137,8 @@ foreach my $utf8 ('', ', utf-8') {
     foreach my $arraybase (0, 1, -1, -2) {
 	my $expect_pos = 2 + $arraybase;
 
-	my $prog = "\$[ = $arraybase; \$big = \"N\\xabN\\xab\"; ";
+	my $prog = "no warnings 'deprecated';\n";
+	$prog .= "\$[ = $arraybase; \$big = \"N\\xabN\\xab\"; ";
 	$prog .= '$big .= chr 256; chop $big; ' if $utf8;
 	$prog .= 'print rindex $big, "N", 2 + $[';