From: Rainer Jung <rainer.jung@kippdata.de>
Date: Thu, 25 May 2017 21:58:14 +0000 (+0200)
Subject: Fix use of "can_load()" in run_tests.pl.
X-Git-Tag: OpenSSL_1_1_0g~202
X-Git-Url: https://git.librecmc.org/?a=commitdiff_plain;h=0efb6d94cdc3bc10a30206b95c0621f399e0cc79;p=oweals%2Fopenssl.git

Fix use of "can_load()" in run_tests.pl.

CLA: Trivial

Fixes #3563.

Reviewed-by: Andy Polyakov <appro@openssl.org>
Reviewed-by: Richard Levitte <levitte@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/3564)
(cherry picked from commit 418bb7b31bb7cfca6e419a5aa7bf161784f61059)
---

diff --git a/test/run_tests.pl b/test/run_tests.pl
index 148f2edc50..61fdff6398 100644
--- a/test/run_tests.pl
+++ b/test/run_tests.pl
@@ -19,7 +19,7 @@ use File::Basename;
 use if $^O ne "VMS", 'File::Glob' => qw/glob/;
 use Module::Load::Conditional qw(can_load);
 
-my $TAP_Harness = can_load({modules => [ 'TAP::Harness' ]})
+my $TAP_Harness = can_load(modules => { 'TAP::Harness' => undef }) 
     ? 'TAP::Harness' : 'OpenSSL::TAP::Harness';
 
 my $srctop = $ENV{SRCTOP} || $ENV{TOP};