From 269f16e2247f284f3238eb0c2e0114e77198501d Mon Sep 17 00:00:00 2001 From: Raja R Harinath Date: Sat, 2 Aug 2003 14:14:59 +0000 Subject: [PATCH] (handle_source_transform): Replace 'grep' with 'map'. (register_language): Replace 'grep' with 'foreach' modifier. --- ChangeLog | 5 +++++ automake.in | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 917b1f7..85ccd64 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2003-08-02 Raja R Harinath + + * automake.in (handle_source_transform): Replace 'grep' with 'map'. + (register_language): Replace 'grep' with 'foreach' modifier. + 2003-08-01 Raja R Harinath * lib/Automake/Variables.pm (variables): Return a list of diff --git a/automake.in b/automake.in index 7d51beb..2b73148 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. -- 2.7.4