diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-10-13 15:36:14 +0100 |
|---|---|---|
| committer | Jesse Vincent <jesse@bestpractical.com> | 2009-10-16 12:30:16 -0400 |
| commit | 35ea4f2c0b9de07953e4b43ee1e2f6b8ec89f25c (patch) | |
| tree | 0f28f67d3345f21f9d86660aa533cfb6536c67bd /t | |
| parent | 3963d30b5a2dc4d265ac265e8db15801366a507f (diff) | |
| download | perl-35ea4f2c0b9de07953e4b43ee1e2f6b8ec89f25c.tar.gz | |
push and pop on barewords are deprecated, so need no warnings 'deprecated';
Diffstat (limited to 't')
| -rw-r--r-- | t/op/push.t | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/t/op/push.t b/t/op/push.t index 8b12e6144f..20247062b4 100644 --- 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; |