diff options
author | Richard Levitte <levitte@openssl.org> | 2016-01-30 17:11:48 +0100 |
---|---|---|
committer | Richard Levitte <levitte@openssl.org> | 2016-01-30 17:11:48 +0100 |
commit | c10d1bc81cb047cbd53f8cc430632b6a4a70252d (patch) | |
tree | d386e7fda9f8538117c8ad2c370ccca1df105328 /test/testlib | |
parent | 9c626317a60f8be8b61df25854f42ad9d73ad205 (diff) |
When checking if there's a VMS directory spec, don't forget the possible device
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 e1c2899c7e..297de8642f 100644 --- a/test/testlib/OpenSSL/Test.pm +++ b/test/testlib/OpenSSL/Test.pm @@ -713,7 +713,7 @@ sub __fixup_cmd { if (defined($exe_shell)) { $prefix = "$exe_shell "; } elsif ($^O eq "VMS" ) { # VMS - $prefix = ($prog =~ /^[<\[]/ ? "mcr " : "mcr []"); + $prefix = ($prog =~ /^(?:[\$a-z0-9_]+:)?[<\[]/i ? "mcr " : "mcr []"); $ext = ".exe"; } elsif ($^O eq "MSWin32") { # Windows $prefix = ""; |