diff options
author | Richard Levitte <levitte@openssl.org> | 2021-06-24 07:54:14 +0300 |
---|---|---|
committer | Pauli <pauli@openssl.org> | 2021-06-25 05:23:29 +0300 |
commit | e86b2e78a4b7b618824c4e5cdf7f5d32feacd8b6 (patch) | |
tree | 9ac047f3a51dc71e2f8d4439e538bf2d7efc3b28 /util | |
parent | 11efa7d45ba08fe4d8a11332680b1021934733cf (diff) |
OpenSSL::Util::fixup_cmd_elements(): Include '!' among the VMS chars to process
! is the DCL character that starts a comment, and therefore acts as a
cut-off if not quoted.
Reviewed-by: Tomas Mraz <tomas@openssl.org>
Reviewed-by: Paul Dale <pauli@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/15889)
Diffstat (limited to 'util')
-rw-r--r-- | util/perl/OpenSSL/Util.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/util/perl/OpenSSL/Util.pm b/util/perl/OpenSSL/Util.pm index 074bb00d99..44e87afee2 100644 --- a/util/perl/OpenSSL/Util.pm +++ b/util/perl/OpenSSL/Util.pm @@ -154,7 +154,7 @@ sub fixup_cmd_elements { if ( $^O eq "VMS") { # VMS setup $arg_formatter = sub { $_ = shift; - if ($_ eq '' || /\s|["[:upper:]]/) { + if ($_ eq '' || /\s|[!"[:upper:]]/) { s/"/""/g; '"'.$_.'"'; } else { |