perl 5.003_05: t/op/inc.t util.c

[perl5.git] / t / op / local.t

diff --git a/t/op/local.t b/t/op/local.t
old mode 100644 (file)
new mode 100755 (executable)
index 1f76089..0432010
--- a/t/op/local.t
+++ b/t/op/local.t
@@ -1,6 +1,6 @@
 #!./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";
 
@@ -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;