wbrawner/openssl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Lowercase configuration arguments on VMS

Browse source 
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 <appro@openssl.org>
This commit is contained in:
Richard Levitte 2016-02-16 16:07:05 +01:00
parent 4ad386412c
commit 7c55e22c69
2 changed files with 16 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
Configure
View file

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

18
config.com
View file

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