diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1997-10-31 23:54:01 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1997-10-31 23:54:01 +0000 |
| commit | f0f333f45536802923a359d930d1dcfd5b4589ea (patch) | |
| tree | 6f746f4b9cda56e2432754d6816467676c601820 /t/op/misc.t | |
| parent | 8ac853655d9b744749adcb9687c13d99cdd6e9fb (diff) | |
| download | perl-f0f333f45536802923a359d930d1dcfd5b4589ea.tar.gz | |
Further ANSI changes now builds and passes (most) tests
with gcc -x c++.
p4raw-id: //depot/ansiperl@196
Diffstat (limited to 't/op/misc.t')
| -rwxr-xr-x | t/op/misc.t | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/t/op/misc.t b/t/op/misc.t index 6156ac2f21..5a61acd55d 100755 --- a/t/op/misc.t +++ b/t/op/misc.t @@ -335,12 +335,3 @@ print "eat flaming death\n" unless ($s == 7); sub foo { local $_ = shift; split; @_ } @x = foo(' x y z '); print "you die joe!\n" unless "@x" eq 'x y z'; -######## -sub foo { local(@_) = ('p', 'q', 'r'); } -sub bar { unshift @_, 'D'; @_ } -sub baz { push @_, 'E'; return @_ } -for (1..3) { print foo('a', 'b', 'c'), bar('d'), baz('e'), "\n" } -EXPECT -pqrDdeE -pqrDdeE -pqrDdeE |