(handle_source_transform): Replace 'grep' with 'map'.

(register_language): Replace 'grep' with 'foreach' modifier.

diff --git a/ChangeLog b/ChangeLog
index 917b1f765d2707b46aca6686df2a0b55480fa087..85ccd64cb19b6986b79e7915d9b4926c79169ae0 100644 (file)
--- 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 7d51beb6b70472c59d46c0efdd9bec1c2d4d8dbe..2b731488b4593d45397bdb4b5dc9e52d51774235 100755 (executable)
--- 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.