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

OpenSSL::Test - small fixup 



Reviewed-by: default avatarMatt Caswell <matt@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/1686)
parent 753663a9

test/testlib/OpenSSL/Test.pm

+2 −7
Original line number Original line Diff line number Diff line
@@ -1016,15 +1016,10 @@ sub __fixup_prg { 
	$prefix = ($prog =~ /^(?:[\$a-z0-9_]+:)?[<\[]/i ? "mcr " : "mcr []");

	$prefix = ($prog =~ /^(?:[\$a-z0-9_]+:)?[<\[]/i ? "mcr " : "mcr []");

    }

    }





    # We test both with and without extension.  The reason

    # We test if the program to use exists.

    # is that we might be passed a complete file spec, with

    # extension.

    if ( ! -x $prog ) {

	my $prog = "$prog";

    if ( ! -x $prog ) {

    if ( ! -x $prog ) {

	$prog = undef;

	$prog = undef;

    }

    }

    }





    if (defined($prog)) {

    if (defined($prog)) {

	# Make sure to quotify the program file on platforms that may

	# Make sure to quotify the program file on platforms that may