Commit c4718849 authored by Richard Levitte's avatar Richard Levitte
Browse files

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: default avatarMatt Caswell <matt@openssl.org>
parent 67336ea4

Configure

+5 −5
Original line number Diff line number Diff line
@@ -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.