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 | |
parent | 9c626317a60f8be8b61df25854f42ad9d73ad205 (diff) | |
download | openssl-c10d1bc81cb047cbd53f8cc430632b6a4a70252d.zip openssl-c10d1bc81cb047cbd53f8cc430632b6a4a70252d.tar.gz openssl-c10d1bc81cb047cbd53f8cc430632b6a4a70252d.tar.bz2 |
When checking if there's a VMS directory spec, don't forget the possible device
Reviewed-by: Rich Salz <rsalz@openssl.org>
-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 e1c2899..297de86 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 = ""; |