Make Configure die when unsupported options are given
Reviewed-by: Rich Salz <rsalz@openssl.org>
This commit is contained in:
parent
8b527be2db
commit
489eb74090
@ -947,6 +947,7 @@ while($argv_unprocessed)
|
|||||||
$argvstring=join(' ',@argvcopy);
|
$argvstring=join(' ',@argvcopy);
|
||||||
|
|
||||||
PROCESS_ARGS:
|
PROCESS_ARGS:
|
||||||
|
my %unsupported_options = ();
|
||||||
foreach (@argvcopy)
|
foreach (@argvcopy)
|
||||||
{
|
{
|
||||||
s /^-no-/no-/; # some people just can't read the instructions
|
s /^-no-/no-/; # some people just can't read the instructions
|
||||||
@ -963,7 +964,7 @@ PROCESS_ARGS:
|
|||||||
my $word = $2;
|
my $word = $2;
|
||||||
if (!grep { $word =~ /^${_}$/ } @disablables)
|
if (!grep { $word =~ /^${_}$/ } @disablables)
|
||||||
{
|
{
|
||||||
warn "Unsupported option ${word}, ignored...\n";
|
$unsupported_options{$_} = 1;
|
||||||
next;
|
next;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -1135,6 +1136,12 @@ PROCESS_ARGS:
|
|||||||
{ $options .= " ".$_; }
|
{ $options .= " ".$_; }
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
if (keys %unsupported_options)
|
||||||
|
{
|
||||||
|
die "***** Unsupported options: ",
|
||||||
|
join(", ", keys %unsupported_options), "\n";
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user