This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
1578dcc
)
t/op/array.t: remove ‘no warnings "deprecated"’
author
Father Chrysostomos
<sprout@cpan.org>
Sun, 14 Jul 2013 00:57:46 +0000
(17:57 -0700)
committer
Father 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
patch
|
blob
|
blame
|
history
diff --git
a/t/op/array.t
b/t/op/array.t
index
90dd046
..
86740a1
100644
(file)
--- a/
t/op/array.t
+++ b/
t/op/array.t
@@
-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');