From: Richard Levitte <levitte@openssl.org>
Date: Thu, 24 Jun 2021 04:54:14 +0000 (+0200)
Subject: OpenSSL::Util::fixup_cmd_elements(): Include '!' among the VMS chars to process
X-Git-Tag: openssl-3.0.0-beta2~200
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=e86b2e78a4b7b618824c4e5cdf7f5d32feacd8b6;p=thirdparty%2Fopenssl.git

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

diff --git a/util/perl/OpenSSL/Util.pm b/util/perl/OpenSSL/Util.pm
index 074bb00d993..44e87afee2e 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 {