Commit c10d1bc8 authored by Richard Levitte's avatar Richard Levitte
Browse files

When checking if there's a VMS directory spec, don't forget the possible device 



Reviewed-by: default avatarRich Salz <rsalz@openssl.org>
parent 9c626317

test/testlib/OpenSSL/Test.pm

+1 −1
Original line number Diff line number Diff line
@@ -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 = "";