* automake.in (&handle_single_transform_list, &add_depend2): Let

$lang_specific_files{$lang} be a list instead of a string.

diff --git a/ChangeLog b/ChangeLog
index 3c0e553a145484251df685d66c7caaf3d537490c..16d5e9267ea70f16a2516b52161bd613abfa7ec7 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-03-05  Akim Demaille  <akim@epita.fr>
+
+       * automake.in (&handle_single_transform_list, &add_depend2): Let
+       $lang_specific_files{$lang} be a list instead of a string.
+
 2001-03-05  Akim Demaille  <akim@epita.fr>
 
        Let's make it run ten times faster...

diff --git a/automake.in b/automake.in
index f64574ee60978a0798b1f28d808d0c2ade60f502..964b550141334f140c9e644d2bc3c665e55ec68c 100755 (executable)
--- a/automake.in
+++ b/automake.in
@@ -1318,9 +1318,8 @@ sub handle_single_transform_list
                 $rule = '';
                 my $obj_sans_ext = substr ($object, 0,
                                           - length ($this_obj_ext));
-                $lang_specific_files{$lang} .= (' ' . $derived
-                                                . ' ' . $full
-                                                . ' ' . $obj_sans_ext);
+                push (@{$lang_specific_files{$lang}},
+                     "$derived $full $obj_sans_ext");
             }
         }
         elsif ($extension eq 'o')
@@ -2783,17 +2782,10 @@ sub add_depend2
 
     # Now include code for each specially handled object with this
     # language.
-    my @list = grep ($_ ne '', split (' ', $lang_specific_files{$lang}));
-    my $max = scalar @list;
-    my $i = 0;
-    my ($derived, $source, $obj);
     my %seen_files = ();
-    while ($i < $max)
+    foreach my $file (@{$lang_specific_files{$lang}})
     {
-       $derived = $list[$i];
-       $source = $list[$i + 1];
-       $obj = $list[$i + 2];
-       $i += 3;
+        my ($derived, $source, $obj) = split (' ', $file);
 
        # We might see a given object twice, for instance if it is
        # used under different conditions.