Pack Patch (was Re: 5.002 - pack/unpack does not do "I" right)

[p5sagit/p5-mst-13.2.git] / t / op / local.t

diff --git a/t/op/local.t b/t/op/local.t
index 5f007fd..0432010 100755 (executable)
--- 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;