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 074bb00d993ae3025c341f046f64ea8e0f37f23a..44e87afee2e3ad34379cb2a924ea630a0b34b3a8 100644 (file)
--- 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 {