From: sof <unknown>
Date: Thu, 21 Jan 1999 19:56:48 +0000 (+0000)
Subject: [project @ 1999-01-21 19:56:48 by sof]
X-Git-Tag: Approx_2487_patches~30
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6248529341a063b89cefdc07567281ff600dbd7a;hp=40317587d007023ec09db8ecab3e1a11f8670649;p=ghc-hetmet.git

[project @ 1999-01-21 19:56:48 by sof]
The temp file where cpp's output was output wasn't being properly removed
---

diff --git a/ghc/utils/mkdependHS/mkdependHS.prl b/ghc/utils/mkdependHS/mkdependHS.prl
index 54d9627..c2152aa 100644
--- a/ghc/utils/mkdependHS/mkdependHS.prl
+++ b/ghc/utils/mkdependHS/mkdependHS.prl
@@ -418,10 +418,7 @@ sub slurp_file_for_imports {
     close(SRCFILE) || exit(1);
     # remove temporary file, if any.
     if ($cleanup) {
-	   # truncate() may not be implemented, so we
-	   # play it safe here.
-	   local(*TRUNC);
-	   open(TRUNC,"> $read_from_file") && close(TRUNC);
+	   unlink("$read_from_file");
     }
 }