When checking if there's a VMS directory spec, don't forget the possible device
authorRichard Levitte <levitte@openssl.org>
Sat, 30 Jan 2016 16:11:48 +0000 (17:11 +0100)
committerRichard Levitte <levitte@openssl.org>
Sat, 30 Jan 2016 16:11:48 +0000 (17:11 +0100)
Reviewed-by: Rich Salz <rsalz@openssl.org>
test/testlib/OpenSSL/Test.pm

index e1c2899..297de86 100644 (file)
@@ -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 = "";