From: simonpj <unknown>
Date: Fri, 13 Jun 2003 06:22:23 +0000 (+0000)
Subject: [project @ 2003-06-13 06:22:23 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~772
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=c447b9e272c0b2cfc3a15cc890e40daf7a500b8d

[project @ 2003-06-13 06:22:23 by simonpj]
Add the commit message as a comment
---

diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs
index 505610c..f9138cd 100644
--- a/ghc/compiler/main/SysTools.lhs
+++ b/ghc/compiler/main/SysTools.lhs
@@ -755,6 +755,9 @@ foreign import ccall unsafe "rawSystem"
 -- itself.
 rawSystem cmd args = do
   let cmdline = {-translate-} cmd ++ concat (map ((' ':) . translate) args)
+	-- Urk, don't quote/escape the command name on Windows, because the
+	-- compiler is exceedingly naughty and sometimes uses 'perl "..."' 
+	-- as the command name.
   withCString cmdline $ \pcmdline -> do
     status <- throwErrnoIfMinus1 "rawSystem" (c_rawSystem pcmdline)
     case status of