mirror of
git://git.sv.gnu.org/autoconf
synced 2025-03-01 14:16:02 +08:00
* bin/autom4te.in (load_configuration): Reject #args out of any
language.
This commit is contained in:
parent
c4e69deefd
commit
fad4a1fa3c
@ -1,3 +1,8 @@
|
||||
2002-10-31 Akim Demaille <akim@epita.fr>
|
||||
|
||||
* bin/autom4te.in (load_configuration): Reject #args out of any
|
||||
language.
|
||||
|
||||
2002-10-31 Akim Demaille <akim@epita.fr>
|
||||
|
||||
* lib/autoconf/general.m4 (_AC_MSG_LOG_CONFTEST): New.
|
||||
|
@ -465,15 +465,20 @@ sub load_configuration ($)
|
||||
my $type = shift @words;
|
||||
if ($type eq 'begin-language:')
|
||||
{
|
||||
error "$file:$.: end-language missing for: $lang"
|
||||
if defined $lang;
|
||||
$lang = lc $words[0];
|
||||
}
|
||||
elsif ($type eq 'end-language:')
|
||||
{
|
||||
error "$file:$.: end-language mismatch: $lang"
|
||||
if $lang ne lc $words[0];
|
||||
$lang = undef;
|
||||
}
|
||||
elsif ($type eq 'args:')
|
||||
{
|
||||
error "$file:$.: no current language"
|
||||
unless defined $lang;
|
||||
push @{$language{$lang}}, @words;
|
||||
}
|
||||
else
|
||||
|
Loading…
Reference in New Issue
Block a user