[PATCH] Add explicit close to t/syn/file.t tests

[Andy Dougherty]

I don't know why this didn't show up anywhere else, but on Solaris 8 with
perl5.00503, the imcc/t/syn/file.t tests that tried to load temp.pbc were
all failing.  The reason turned out to be that the temp.imc files hadn't
been flushed to disk yet.  Explicitly closing the files ensures
that they are written before we try to compile them.

diff -r -u parrot-cvs/languages/imcc/t/syn/file.t 
parrot-andy/languages/imcc/t/syn/file.t
--- parrot-cvs/languages/imcc/t/syn/file.t      Thu Aug 21 13:47:27 2003
+++ parrot-andy/languages/imcc/t/syn/file.t     Tue Sep  2 15:47:21 2003
@@ -139,6 +139,7 @@
     end
 .end
 ENDF
+close FOO;
 # compile it

 system(".$PConfig{slash}imcc$PConfig{exe} -o temp.pbc temp.imc");
@@ -171,6 +172,7 @@
     end
 .end
 ENDF
+close FOO;
 # compile it

 system(".$PConfig{slash}imcc$PConfig{exe} -o temp.pbc temp.imc");
@@ -208,6 +210,7 @@
     end
 .end
 ENDF
+close FOO;
 # compile it

 system(".$PConfig{slash}imcc$PConfig{exe} -o temp.pbc temp.imc");
@@ -240,6 +243,7 @@
     end
 .end
 ENDF
+close FOO;
 # compile it

 output_is(<<'CODE', <<'OUT', "call sub in external imc, return");
@@ -272,6 +276,7 @@
     end
 .end
 ENDF
+close FOO;
 # compile it

 SKIP:
@@ -356,6 +361,7 @@
     end
 .end
 ENDF
+close FOO;
 # compile it

 system(".$PConfig{slash}imcc$PConfig{exe} -o temp.pbc temp.imc");

-- 
    Andy Dougherty              [EMAIL PROTECTED]