diff options
| author | Larry Wall <larry@netlabs.com> | 1993-10-10 00:00:00 +0000 |
|---|---|---|
| committer | Larry Wall <larry@netlabs.com> | 1993-10-10 00:00:00 +0000 |
| commit | 93a17b20b6d176db3f04f51a63b0a781e5ffd11c (patch) | |
| tree | 764149b1d480d5236d4d62b3228bd57f53a71042 /t/op/local.t | |
| parent | 79072805bf63abe5b5978b5928ab00d360ea3e7f (diff) | |
| download | perl-93a17b20b6d176db3f04f51a63b0a781e5ffd11c.tar.gz | |
perl 5.0 alpha 3
[editor's note: the sparc executables have not been included,
and emacs backup files have been removed]
Diffstat (limited to 't/op/local.t')
| -rwxr-xr-x | t/op/local.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/local.t b/t/op/local.t index 5f007fd4f6..043201072d 100755 --- a/t/op/local.t +++ b/t/op/local.t @@ -19,7 +19,7 @@ $b = "ok 6\n"; $c = "ok 7\n"; $d = "ok 8\n"; -print do foo("ok 1\n","ok 2\n"); +print &foo("ok 1\n","ok 2\n"); print $a,$b,$c,$d,$x,$y; @@ -40,6 +40,6 @@ $a = "ok 15\n"; @c = "ok 17\n"; $d{''} = "ok 18\n"; -print do foo2("ok 11\n","ok 12\n"); +print &foo2("ok 11\n","ok 12\n"); print $a,@b,@c,%d,$x,$y; |