diff options
author | Richard Levitte <levitte@openssl.org> | 2015-05-18 12:51:16 +0200 |
---|---|---|
committer | Richard Levitte <levitte@openssl.org> | 2016-01-20 20:51:38 +0100 |
commit | bb56561adbb6d2728b05e2df08c0575c38a46249 (patch) | |
tree | 0e5ade357eaacea7c623dba7dda0d6d1ed1ce2bb | |
parent | 76ffb43d1ade66ca60f977aabdbf43995615da92 (diff) |
Refactor config - throw away '--test-sanity'
Get rid of the --test-sanity option. Since we no longer have string
based configurations, we don't have the problem with miscounting
colons any more.
Reviewed-by: Rich Salz <rsalz@openssl.org>
-rwxr-xr-x | Configure | 43 |
1 files changed, 0 insertions, 43 deletions
@@ -1051,10 +1051,6 @@ PROCESS_ARGS: $threads = 1 if ($algo eq "threads"); } - elsif (/^--test-sanity$/) - { - exit(&test_sanity()); - } elsif (/^--strict-warnings$/) { $strict_warnings = 1; @@ -2560,42 +2556,3 @@ EOF print " },\n"; } } - -sub test_sanity - { - my $errorcnt = 0; - - print STDERR "=" x 70, "\n"; - print STDERR "=== SANITY TESTING!\n"; - print STDERR "=== No configuration will be done, all other arguments will be ignored!\n"; - print STDERR "=" x 70, "\n"; - - foreach $target (sort keys %table) - { - my $pre_dso_scheme = "perlasm_scheme"; - my $dso_scheme = "dso_scheme"; - my $post_dso_scheme = "shared_target"; - - - if ($table{$target}->{$pre_dso_scheme} =~ /^(beos|dl|dlfcn|win32|vms)$/) - { - $errorcnt++; - print STDERR "SANITY ERROR: '$target' has the dso_scheme values\n"; - print STDERR " in the previous field\n"; - } - elsif ($table{$target}->{$post_dso_scheme} =~ /^(beos|dl|dlfcn|win32|vms)$/) - { - $errorcnt++; - print STDERR "SANITY ERROR: '$target' has the dso_scheme values\n"; - print STDERR " in the following field\n"; - } - elsif ($table{$target}->{$dso_scheme} !~ /^(beos|dl|dlfcn|win32|vms|)$/) - { - $errorcnt++; - print STDERR "SANITY ERROR: '$target' has the dso_scheme field = ",$table{$target}->{$dso_scheme},"\n"; - print STDERR " valid values are 'beos', 'dl', 'dlfcn', 'win32' and 'vms'\n"; - } - } - print STDERR "No sanity errors detected!\n" if $errorcnt == 0; - return $errorcnt; - } |