* automake.in (&push_dist_common): Simplify.

diff --git a/ChangeLog b/ChangeLog
index 95713efcb7ed7731f8886a45f76a2f920bfcaabf..6a22393ca99cfb41835368f00c4d3bb07f6a6482 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2001-03-06  Akim Demaille  <akim@epita.fr>
+
+       * automake.in (&push_dist_common): Simplify.
+
 2001-03-06  Jens Krüger <jens_krueger@physik.tu-muenchen.de>
 
        * ltlib.am: Replaced spaces with tab.

diff --git a/automake.in b/automake.in
index 9757d01412700d1383faab43f877fd34b16d2b1c..342b9aeb667e9631e9bf9f0c59ecc06cad4b5057 100755 (executable)
--- a/automake.in
+++ b/automake.in
@@ -7398,15 +7398,9 @@ sub require_conf_file_with_conf_line
 # Push a list of files onto dist_common.
 sub push_dist_common
 {
-    foreach my $file (@_)
-    {
-       if (! defined $dist_common{$file})
-       {
-           &prog_error ("push_dist_common run after handle_dist")
-               if $handle_dist_run;
-           $dist_common{$file} = 1;
-       }
-    }
+    &prog_error ("push_dist_common run after handle_dist")
+        if $handle_dist_run;
+    grep { $dist_common{$_} = 1 } @_;
 }