#!./perl
-# $Header: local.t,v 4.0 91/03/20 01:53:29 lwall Locked $
+# $RCSfile: local.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:04 $
print "1..20\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;
@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;