From: Richard Levitte <levitte@openssl.org>
Date: Sat, 9 Apr 2016 09:13:00 +0000 (+0200)
Subject: VMS doesn't have directory separators in the same sense as Unix
X-Git-Tag: OpenSSL_1_1_0-pre5~86
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=842a20638ad423b43bfa1a5fca25547089e3d278;p=openssl

VMS doesn't have directory separators in the same sense as Unix

Don't add / in file specs on VMS.  The directory "separator" is part
of the directory spec.

Reviewed-by: Emilia Käsper <emilia@openssl.org>
---

diff --git a/test/ssl-tests/ssltests_base.pm b/test/ssl-tests/ssltests_base.pm
index 05aab97e13..387043e375 100644
--- a/test/ssl-tests/ssltests_base.pm
+++ b/test/ssl-tests/ssltests_base.pm
@@ -4,14 +4,16 @@
 
 package ssltests;
 
+my $dir_sep = $^O ne "VMS" ? "/" : "";
+
 our %base_server = (
-    "Certificate" => "\${ENV::TEST_CERTS_DIR}/servercert.pem",
-    "PrivateKey"  => "\${ENV::TEST_CERTS_DIR}/serverkey.pem",
+    "Certificate" => "\${ENV::TEST_CERTS_DIR}${dir_sep}servercert.pem",
+    "PrivateKey"  => "\${ENV::TEST_CERTS_DIR}${dir_sep}serverkey.pem",
     "CipherString" => "DEFAULT",
 );
 
 our %base_client = (
-    "VerifyCAFile" => "\${ENV::TEST_CERTS_DIR}/rootcert.pem",
+    "VerifyCAFile" => "\${ENV::TEST_CERTS_DIR}${dir_sep}rootcert.pem",
     "VerifyMode" => "Peer",
     "CipherString" => "DEFAULT",
 );