From e972273194303e15f8dd7ce69dbcfa27cc024e9f Mon Sep 17 00:00:00 2001 From: Richard Levitte Date: Tue, 18 Oct 2016 20:55:07 +0200 Subject: [PATCH] OpenSSL::Test - small fixup Reviewed-by: Matt Caswell (Merged from https://github.com/openssl/openssl/pull/1686) --- test/testlib/OpenSSL/Test.pm | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) diff --git a/test/testlib/OpenSSL/Test.pm b/test/testlib/OpenSSL/Test.pm index ffd287fbb6..4af3629c86 100644 --- a/test/testlib/OpenSSL/Test.pm +++ b/test/testlib/OpenSSL/Test.pm @@ -1016,14 +1016,9 @@ sub __fixup_prg { $prefix = ($prog =~ /^(?:[\$a-z0-9_]+:)?[<\[]/i ? "mcr " : "mcr []"); } - # We test both with and without extension. The reason - # is that we might be passed a complete file spec, with - # extension. + # We test if the program to use exists. if ( ! -x $prog ) { - my $prog = "$prog"; - if ( ! -x $prog ) { - $prog = undef; - } + $prog = undef; } if (defined($prog)) { -- 2.25.1