提交 489eb740 编写于 作者: R Richard Levitte

Make Configure die when unsupported options are given

Reviewed-by: NRich Salz <rsalz@openssl.org>
上级 8b527be2
......@@ -947,6 +947,7 @@ while($argv_unprocessed)
$argvstring=join(' ',@argvcopy);
PROCESS_ARGS:
my %unsupported_options = ();
foreach (@argvcopy)
{
s /^-no-/no-/; # some people just can't read the instructions
......@@ -963,7 +964,7 @@ PROCESS_ARGS:
my $word = $2;
if (!grep { $word =~ /^${_}$/ } @disablables)
{
warn "Unsupported option ${word}, ignored...\n";
$unsupported_options{$_} = 1;
next;
}
}
......@@ -1135,6 +1136,12 @@ PROCESS_ARGS:
{ $options .= " ".$_; }
}
}
if (keys %unsupported_options)
{
die "***** Unsupported options: ",
join(", ", keys %unsupported_options), "\n";
}
}
......
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册