diff options
| author | Richard Levitte <levitte@openssl.org> | 2016-01-14 01:46:23 +0100 |
|---|---|---|
| committer | Richard Levitte <levitte@openssl.org> | 2016-01-14 01:46:23 +0100 |
| commit | 502e16853367f373ec2aad94f1fd24884c4a7b65 (patch) | |
| tree | c07d58f371065ce1534914a517756ebc26311756 /test/testlib | |
| parent | d9e309a675900030d7308e36f614962a344816f9 (diff) | |
| download | openssl-502e16853367f373ec2aad94f1fd24884c4a7b65.zip openssl-502e16853367f373ec2aad94f1fd24884c4a7b65.tar.gz openssl-502e16853367f373ec2aad94f1fd24884c4a7b65.tar.bz2 | |
Add a directry spec for mcr if there is none
On VMS, the command MCR will assume SYS$SYSTEM: when the first
argument lacks a directory spec. So for programs in the current
directory, we add [] to tell MCR it is in the current directory.
It's the same as having ./ at the start of a program on Unix so the
shell doesn't start looking along $PATH.
Reviewed-by: Rich Salz <rsalz@openssl.org>
Diffstat (limited to 'test/testlib')
| -rw-r--r-- | test/testlib/OpenSSL/Test.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/testlib/OpenSSL/Test.pm b/test/testlib/OpenSSL/Test.pm index 06accb5..6af5e96 100644 --- a/test/testlib/OpenSSL/Test.pm +++ b/test/testlib/OpenSSL/Test.pm @@ -675,7 +675,7 @@ sub __fixup_cmd { if (defined($ENV{EXE_SHELL})) { $prefix = "$ENV{EXE_SHELL} "; } elsif ($^O eq "VMS" ) { # VMS - $prefix = "mcr "; + $prefix = ($prog =~ /^[<\[]/ ? "mcr " : "mcr []"); $ext = ".exe"; } elsif ($^O eq "MSWin32") { # Windows $prefix = ""; |