From: Richard Levitte Date: Tue, 16 Feb 2016 15:07:05 +0000 (+0100) Subject: Lowercase configuration arguments on VMS X-Git-Tag: OpenSSL_1_1_0-pre4~653 X-Git-Url: https://git.openssl.org/?p=openssl.git;a=commitdiff_plain;h=7c55e22c6976d6d19cb6c2340c2f22316546bfca Lowercase configuration arguments on VMS Depending on user preferences, Configure might get something like --PREFIX=blah just as well as --prefix=blah, or "SHARED" just as well as "shared". On VMS, let's therefore lowercase at least the portion of the argument before a possible equal sign. For good measure, we lowercase the arguments to be checked in config.com as well. The original argument is sent on to Configure, however. Reviewed-by: Andy Polyakov --- diff --git a/Configure b/Configure index 1077371a35..9a4a9a9dd0 100755 --- a/Configure +++ b/Configure @@ -501,6 +501,13 @@ $config{perlargv} = [ @argvcopy ]; my %unsupported_options = (); foreach (@argvcopy) { + # VMS is a case insensitive environment, and depending on settings + # out of our control, we may receive options uppercased. Let's + # downcase at least the part before any equal sign. + if ($^O eq "VMS") + { + s/^([^=]*)/lc($1)/e; + } s /^-no-/no-/; # some people just can't read the instructions # rewrite some options in "enable-..." form diff --git a/config.com b/config.com index 1beb74a258..b43acfaac4 100644 --- a/config.com +++ b/config.com @@ -17,24 +17,24 @@ $ P_index = 0 $ LOOP1: $ P_index = P_index + 1 $ IF P_index .GT. 8 THEN GOTO ENDLOOP1 -$ P1 = F$EDIT(P1,"TRIM") -$ IF P1 .EQS. "HELP" THEN GOTO USAGE -$ IF P1 .EQS. "32" +$ P = F$EDIT(P1,"TRIM,LOWERCASE") +$ IF P .EQS. "help" THEN GOTO USAGE +$ IF P .EQS. "32" $ THEN $ pointer_size = "-P32" -$ P1 = "" +$ P = "" $ ENDIF -$ IF P1 .EQS. "64" +$ IF P .EQS. "64" $ THEN $ pointer_size = "-P64" -$ P1 = "" +$ P = "" $ ENDIF -$ IF P1 .EQS. "DEBUG" +$ IF P .EQS. "debug" $ THEN $ debug = "--debug" -$ P1 = "" +$ P = "" $ ENDIF -$ IF P1 .NES. "" THEN - +$ IF P .NES. "" THEN - collected_args = collected_args + " " + P1 $ P1 = P2 $ P2 = P3