projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
4031758
)
[project @ 1999-01-21 19:56:48 by sof]
author
sof
<unknown>
Thu, 21 Jan 1999 19:56:48 +0000
(19:56 +0000)
committer
sof
<unknown>
Thu, 21 Jan 1999 19:56:48 +0000
(19:56 +0000)
The temp file where cpp's output was output wasn't being properly removed
ghc/utils/mkdependHS/mkdependHS.prl
patch
|
blob
|
history
diff --git
a/ghc/utils/mkdependHS/mkdependHS.prl
b/ghc/utils/mkdependHS/mkdependHS.prl
index
54d9627
..
c2152aa
100644
(file)
--- 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");
}
}