From 842a20638ad423b43bfa1a5fca25547089e3d278 Mon Sep 17 00:00:00 2001 From: Richard Levitte Date: Sat, 9 Apr 2016 11:13:00 +0200 Subject: [PATCH] VMS doesn't have directory separators in the same sense as Unix MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Don't add / in file specs on VMS. The directory "separator" is part of the directory spec. Reviewed-by: Emilia Käsper --- test/ssl-tests/ssltests_base.pm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) 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", ); -- 2.25.1