From: Raja R Harinath <harinath@acm.org>
Date: Sat, 2 Aug 2003 14:14:59 +0000 (+0000)
Subject: (handle_source_transform): Replace 'grep' with 'map'.
X-Git-Tag: Release-1-7b~91
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=269f16e2247f284f3238eb0c2e0114e77198501d;p=thirdparty%2Fautomake.git

(handle_source_transform): Replace 'grep' with 'map'.
(register_language): Replace 'grep' with 'foreach' modifier.
---

diff --git a/ChangeLog b/ChangeLog
index 917b1f765..85ccd64cb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-08-02  Raja R Harinath  <harinath@acm.org>
+
+	* automake.in (handle_source_transform): Replace 'grep' with 'map'.
+	(register_language): Replace 'grep' with 'foreach' modifier.
+
 2003-08-01  Raja R Harinath  <harinath@acm.org>
 
 	* lib/Automake/Variables.pm (variables): Return a list of
diff --git a/automake.in b/automake.in
index 7d51beb6b..2b731488b 100755
--- a/automake.in
+++ b/automake.in
@@ -2109,7 +2109,7 @@ sub handle_source_transform
     }
     else
     {
-	grep ($_ = '$(' . $_ . $one_file . '_OBJECTS)', @keys);
+	@keys = map { '$(' . $_ . $one_file . '_OBJECTS)' } @keys;
 	define_pretty_variable ($one_file . '_OBJECTS', TRUE, $where, @keys);
     }
 
@@ -5204,7 +5204,7 @@ sub register_language (%)
   my $lang = new Language (%option);
 
   # Fill indexes.
-  grep ($extension_map{$_} = $lang->name, @{$lang->extensions});
+  $extension_map{$_} = $lang->name foreach @{$lang->extensions};
   $languages{$lang->name} = $lang;
 
   # Update the pattern of known extensions.