This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/op/array.t: remove ‘no warnings "deprecated"’
authorFather Chrysostomos <sprout@cpan.org>
Sun, 14 Jul 2013 00:57:46 +0000 (17:57 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 16 Jul 2013 02:14:22 +0000 (19:14 -0700)
The tests using the deprecated feature were removed in e1dccc0d34.

t/op/array.t

index 90dd046..86740a1 100644 (file)
@@ -20,9 +20,6 @@ is($tmp, 5);
 is($#ary, 3);
 is(join('',@ary), '1234');
 
-{
-    no warnings 'deprecated';
-
 @foo = ();
 $r = join(',', $#foo, @foo);
 is($r, "-1");
@@ -55,8 +52,6 @@ $bar[2] = '2';
 $r = join(',', $#bar, @bar);
 is($r, "2,0,,2");
 
-}
-
 $foo = 'now is the time';
 ok(scalar (($F1,$F2,$Etc) = ($foo =~ /^(\S+)\s+(\S+)\s*(.*)/)));
 is($F1, 'now');