diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-10-13 15:37:12 +0100 |
|---|---|---|
| committer | Jesse Vincent <jesse@bestpractical.com> | 2009-10-16 12:30:16 -0400 |
| commit | f652f7a555220290c8a3a6c757a06871483f14f9 (patch) | |
| tree | a34de5935f1a8ae7e2f87084776eaf6af66604da /t | |
| parent | 35ea4f2c0b9de07953e4b43ee1e2f6b8ec89f25c (diff) | |
| download | perl-f652f7a555220290c8a3a6c757a06871483f14f9.tar.gz | |
shift with barewords is deprecated, so this test from perl 1 needs updating.
Diffstat (limited to 't')
| -rw-r--r-- | t/op/unshift.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/unshift.t b/t/op/unshift.t index 0c26623309..30291fbac1 100644 --- a/t/op/unshift.t +++ b/t/op/unshift.t @@ -3,10 +3,10 @@ print "1..2\n"; @a = (1,2,3); -$cnt1 = unshift(a,0); +$cnt1 = unshift(@a,0); if (join(' ',@a) eq '0 1 2 3') {print "ok 1\n";} else {print "not ok 1\n";} -$cnt2 = unshift(a,3,2,1); +$cnt2 = unshift(@a,3,2,1); if (join(' ',@a) eq '3 2 1 0 1 2 3') {print "ok 2\n";} else {print "not ok 2\n";} |