From: simonm <unknown>
Date: Mon, 10 Nov 1997 11:39:17 +0000 (+0000)
Subject: [project @ 1997-11-10 11:39:17 by simonm]
X-Git-Tag: Approx_2487_patches~1316
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=25f1b87370f3708a68cc776d2bad4b08239106be;p=ghc-hetmet.git

[project @ 1997-11-10 11:39:17 by simonm]
Replace use of map() with foreach, to make the driver perl4 compatible
again.
---

diff --git a/ghc/driver/ghc.lprl b/ghc/driver/ghc.lprl
index 8a88231..8e01137 100644
--- a/ghc/driver/ghc.lprl
+++ b/ghc/driver/ghc.lprl
@@ -578,7 +578,9 @@ if (  $Status == 0 && $Only_generate_deps ) {
     push (@MkDependHS_flags, "-s$BuildTag") if $BuildTag;
     push (@MkDependHS_flags, "-D__HASKELL1__=$Haskell1Version");
     # They're not (currently) needed, but we need to quote any -#include options
-    map(s/-#include.*$/'$&'/g, @Cmd_opts);
+    foreach (@Cmd_opts) {
+    	s/-#include.*$/'$&'/g;
+    };
     local($to_do) = "$MkDependHS @MkDependHS_flags -- @Cmd_opts -- @Input_file" ;
     &run_something($to_do, 'Haskell dependencies');
     exit $Status;