From: Ian Lynagh <igloo@earth.li>
Date: Thu, 30 Apr 2009 13:06:38 +0000 (+0000)
Subject: Fix mkdependC: Make it tell cpp to use our temporary filename
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=91c81cc99ab1421b435be089b679be590230bf74

Fix mkdependC: Make it tell cpp to use our temporary filename
---

diff --git a/utils/mkdependC/mkdependC.prl b/utils/mkdependC/mkdependC.prl
index 6f06b1c..e1f8f39 100644
--- a/utils/mkdependC/mkdependC.prl
+++ b/utils/mkdependC/mkdependC.prl
@@ -181,17 +181,17 @@ sub slurp_file { # follows an example in the `open' item in perl man page
 
     $fname = &tidy_dir_names($fname);
 
-    ($fh, $tempfile) = tempfile();
+    ($fh, $tempfile) = tempfile(DIR => '.', SUFFIX => '.d');
     close $fh;
 
     # ${CPP} better be 'gcc -E', or the -x option will fail...
     # ..and the -MM & -MMD.
-    $result = system("${CPP} -MM -MMD $Include_dirs @Defines -x c $fname $ignore_output");
+    $result = system("${CPP} -MM -MMD $Include_dirs @Defines -x c $fname -o $tempfile $ignore_output");
  
     if ($result != 0) {
         # On the cheesy side..we do want to know what went wrong, so
 	# re-run the command.
-	$result = system("${CPP} -MM -MMD $Include_dirs @Defines -x c $fname ");
+	$result = system("${CPP} -MM -MMD $Include_dirs @Defines -x c $fname -o $tempfile");
 	if ($result != 0) {
 	   unlink($tempfile);
    	   exit($result);