diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-01-19 04:40:04 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-01-19 04:40:04 +0000 |
| commit | 165f6120bc62123046b2281a8f26dd679e405685 (patch) | |
| tree | e667ab058f991655451405d895a2f080aeb25fc2 /t/op/push.t | |
| parent | 189b2af51bf236b53a02db0b105a3de423d3fff4 (diff) | |
| parent | 982fa0b99bd3e50eaadd172e08c0a8e5cc2bdfc6 (diff) | |
| download | perl-165f6120bc62123046b2281a8f26dd679e405685.tar.gz | |
[win32] integrate changes in winansi
p4raw-id: //depot/win32/perl@431
Diffstat (limited to 't/op/push.t')
| -rwxr-xr-x | t/op/push.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/op/push.t b/t/op/push.t index 68fab66af7..f62a4e9d8e 100755 --- a/t/op/push.t +++ b/t/op/push.t @@ -22,7 +22,7 @@ die "blech" unless @tests; @x = (1,2,3); push(@x,@x); if (join(':',@x) eq '1:2:3:1:2:3') {print "ok 1\n";} else {print "not ok 1\n";} -push(x,4); +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 = 3; @@ -47,3 +47,4 @@ foreach $line (@tests) { } } +1; # this file is require'd by lib/tie-stdpush.t |