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 8a8823112270..8e01137eb2a7 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;
--
GitLab