* bin/autom4te.in (parse_args): There can be several invocations

of --language now.

diff --git a/ChangeLog b/ChangeLog
index 7cf5910215d2f514b2724f05f1fd9aeb9c366d98..452c5b27cab07229d7420f7d73dcfe64c31df1f7 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-09-23  Akim Demaille  <akim@epita.fr>
+
+       * bin/autom4te.in (parse_args): There can be several invocations
+       of --language now.
+
 2001-09-23  Akim Demaille  <akim@epita.fr>
 
        * doc/autoconf.texi (Top): Wrap in @ifnottex.

diff --git a/bin/autom4te.in b/bin/autom4te.in
index 287528eaba454da77657a50ad8a2b71e489c8fa5..1e1915bcd4eac6111624429e10927d14d7c5a9fe 100644 (file)
--- a/bin/autom4te.in
+++ b/bin/autom4te.in
@@ -461,20 +461,21 @@ sub parse_args ()
   # We want to look for the early options, which should not be found
   # in the configuration file.  Prepend to the user arguments.
   # Perform this repeatedly so that we can use --language in language
-  # definitions.
-  my $language;
+  # definitions.  Beware that there can be several --language
+  # invocations.
+  my @language;
   do {
-    $language = undef;
+    @language = ();
     Getopt::Long::Configure ("pass_through");
-    getopt ("l|language=s" => \$language);
+    getopt ("l|language=s" => \@language);
 
-    if ($language)
+    foreach (@language)
       {
-       die "$me: unknown language: $language\n"
-         unless exists $language{lc $language};
-       unshift @ARGV, @{$language{lc $language}};
+       die "$me: unknown language: $_\n"
+         unless exists $language{lc $_};
+       unshift @ARGV, @{$language{lc $_}};
       }
-  } while $language;
+  } while @language;
 
   debug "arguments: @ARGV\n";