Fix test for overload in given() with smart match after last change

[p5sagit/p5-mst-13.2.git] / t / op / each_array.t

diff --git a/t/op/each_array.t b/t/op/each_array.t
index b0665e1..2389473 100644 (file)
--- a/t/op/each_array.t
+++ b/t/op/each_array.t
@@ -1,4 +1,4 @@
-#!./perl -w
+#!./perl
 
 BEGIN {
     chdir 't' if -d 't';
@@ -6,6 +6,8 @@ BEGIN {
     require './test.pl';
 }
 use strict;
+use warnings;
+no warnings 'deprecated';
 use vars qw(@array @r $k $v);
 
 plan tests => 48;