VMS will downcase all command parameters unless they're quoted

Reviewed-by: Rich Salz <rsalz@openssl.org>

diff --git a/apps/CA.pl.in b/apps/CA.pl.in
index a814ebf3c22f464894c42c1622fccafd3ce52a45..23e116a5f588873fb3b7a3112778d3fee676f255 100644 (file)
--- a/apps/CA.pl.in
+++ b/apps/CA.pl.in
@@ -164,7 +164,7 @@ if ($WHAT eq '-newcert' ) {
     my @files = @ARGV ? @ARGV : ( $NEWCERT );
     my $file;
     foreach $file (@files) {
-        my $status = run("$VERIFY -CAfile ${CATOP}/$CACERT $file");
+        my $status = run("$VERIFY \"-CAfile\" ${CATOP}/$CACERT $file");
         $RET = $status if $status != 0;
     }
 } elsif ($WHAT eq '-crl' ) {