[perl #60634] [PATCH] Minor test tempfile cleanup

# New Ticket Created by  Andy Dougherty 
# Please include the string:  [perl #60634]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=60634 >


This patch cleans up a few test files left in /tmp by the test suite.

diff -r -u parrot-current/t/compilers/imcc/syn/file.t parrot-andy/t/compilers/imcc/syn/file.t
--- parrot-current/t/compilers/imcc/syn/file.t	2008-11-18 08:04:17.000000000 -0500
+++ parrot-andy/t/compilers/imcc/syn/file.t	2008-11-18 08:31:49.000000000 -0500
@@ -490,7 +490,7 @@
 without_slash() called!
 OUT
 }
-
+unlink(@temp_files);
 $ended_ok = 1;
 
 exit;
diff -r -u parrot-current/t/pmc/sub.t parrot-andy/t/pmc/sub.t
--- parrot-current/t/pmc/sub.t	2008-11-18 08:04:16.000000000 -0500
+++ parrot-andy/t/pmc/sub.t	2008-11-18 08:37:06.000000000 -0500
@@ -660,7 +660,7 @@
 /too few arguments passed \(1\) - 2 params expected/
 OUTPUT
 
-($TEMP, $temp_pasm) = create_tempfile();
+($TEMP, $temp_pasm) = create_tempfile(UNLINK => 1);
 print $TEMP <<'EOF';
 .sub _sub1 :load
   say "in sub1"
@@ -681,7 +681,7 @@
 back
 OUTPUT
 
-($TEMP, $temp_pasm) = create_tempfile();
+($TEMP, $temp_pasm) = create_tempfile(UNLINK => 1);
 print $TEMP <<'EOF';
 .sub _foo
   print "error\n"

-- 
    Andy Dougherty		[email protected]