generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Comment away the extra checks in Configure

Browse Source 
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: Matt Caswell <matt@openssl.org>
This commit is contained in:
Richard Levitte
2016-03-09 17:18:07 +01:00
parent 67336ea400
commit c471884996
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Configure
View File

@@ -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.