OpenSSL::Test - small fixup

Reviewed-by: Matt Caswell <matt@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/1686)

diff --git a/test/testlib/OpenSSL/Test.pm b/test/testlib/OpenSSL/Test.pm
index ffd287fbb6c3ba1fcf4c62ab77893fd1e6fd37ae..4af3629c86d751352ef8cc71ec65c9cbc100e26d 100644 (file)
--- 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 []");
     }
 
        $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 ) {
     if ( ! -x $prog ) {

-       my $prog = "$prog";
-       if ( ! -x $prog ) {
-           $prog = undef;
-       }
+       $prog = undef;

     }
 
     if (defined($prog)) {
     }
 
     if (defined($prog)) {