From 25f1b87370f3708a68cc776d2bad4b08239106be Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Mon, 10 Nov 1997 11:39:17 +0000
Subject: [PATCH] [project @ 1997-11-10 11:39:17 by simonm] Replace use of
 map() with foreach, to make the driver perl4 compatible
 again.

---
 ghc/driver/ghc.lprl |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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;
-- 
1.7.10.4