X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fop%2Fpush.t;h=20247062b4848780597f21ebf972650a53e27943;hb=6ec5370cb0aeb185d92b8fd2bad21bb10f75b30e;hp=8b12e6144f30bad562173ad17c8a3c5ccbb5bad1;hpb=f97d6588554acc8b88e745a23fe1f1d5fd04dfae;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/op/push.t b/t/op/push.t
old mode 100755
new mode 100644
index 8b12e61..2024706
--- a/t/op/push.t
+++ b/t/op/push.t
@@ -24,9 +24,15 @@ push(@x,4);
 if (join(':',@x) eq '1:2:3:1:2:3:4') {print "ok 2\n";} else {print "not ok 2\n";}
 
 # test for push/pop intuiting @ on array
-push(x,3);
+{
+    no warnings 'deprecated';
+    push(x,3);
+}
 if (join(':',@x) eq '1:2:3:1:2:3:4:3') {print "ok 3\n";} else {print "not ok 3\n";}
-pop(x);
+{
+    no warnings 'deprecated';
+    pop(x);
+}
 if (join(':',@x) eq '1:2:3:1:2:3:4') {print "ok 4\n";} else {print "not ok 4\n";}
 
 $test = 5;