OpenSSL::Test - small fixup
authorRichard Levitte <levitte@openssl.org>
Tue, 18 Oct 2016 18:55:07 +0000 (20:55 +0200)
committerRichard Levitte <levitte@openssl.org>
Wed, 19 Oct 2016 15:14:33 +0000 (17:14 +0200)
Reviewed-by: Matt Caswell <matt@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/1686)

test/testlib/OpenSSL/Test.pm

index ffd287f..4af3629 100644 (file)
@@ -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)) {