提交 c4718849 编写于 作者: R Richard Levitte

Comment away the extra checks in Configure

The "extra checks" is a debugging tool to check the config resolving
mechanism.  It uses Perl's smart match, which is experimental and
therefore always causes Perl to give out a warning, and it causes
older Perl versions to fail entirely.

So, it gets commented away, but stays otherwise in place, as it may be
useful again.
Reviewed-by: NMatt Caswell <matt@openssl.org>
上级 67336ea4
......@@ -2058,7 +2058,7 @@ sub resolve_config {
my $target = shift;
my @breadcrumbs = @_;
my $extra_checks = defined($ENV{CONFIGURE_EXTRA_CHECKS});
# my $extra_checks = defined($ENV{CONFIGURE_EXTRA_CHECKS});
if (grep { $_ eq $target } @breadcrumbs) {
die "inherit_from loop! target backtrace:\n "
......@@ -2158,10 +2158,10 @@ sub resolve_config {
unless(defined($table{$target}->{$_})) {
delete $table{$target}->{$_};
}
if ($extra_checks &&
$previous && !($add_called || $previous ~~ $table{$target}->{$_})) {
warn "$_ got replaced in $target\n";
}
# if ($extra_checks &&
# $previous && !($add_called || $previous ~~ $table{$target}->{$_})) {
# warn "$_ got replaced in $target\n";
# }
}
# Finally done, return the result.
......
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册