提交 d4deecc2 编写于 作者: R Richard Levitte

VMS config.com: better handling of arguments

Most of all, this change preserves casing a bit better
Reviewed-by: NRich Salz <rsalz@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/5180)
上级 f0bbf365
...@@ -73,7 +73,7 @@ $ collected_args = collected_args + " --debug" ...@@ -73,7 +73,7 @@ $ collected_args = collected_args + " --debug"
$ P = "" $ P = ""
$ ENDIF $ ENDIF
$ IF P .NES. "" THEN - $ IF P .NES. "" THEN -
collected_args = collected_args + " " + P1 collected_args = collected_args + " """ + P1 + """"
$ P1 = P2 $ P1 = P2
$ P2 = P3 $ P2 = P3
$ P3 = P4 $ P3 = P4
...@@ -87,7 +87,7 @@ $ ENDLOOP1: ...@@ -87,7 +87,7 @@ $ ENDLOOP1:
$ $
$ target = "vms-''arch'''pointer_size'" $ target = "vms-''arch'''pointer_size'"
$ IF verbose THEN - $ IF verbose THEN -
WRITE SYS$OUTPUT "PERL ''here'Configure ""''target'""''collected_args'" WRITE SYS$OUTPUT "PERL ''here'Configure ""''target'""",collected_args
$ IF .not. dryrun THEN - $ IF .not. dryrun THEN -
PERL 'here'Configure "''target'" 'debug' 'collected_args' PERL 'here'Configure "''target'"'collected_args'
$ EXIT $STATUS $ EXIT $STATUS
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册