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

[oweals/openssl.git] / test / run_tests.pl

diff --git a/test/run_tests.pl b/test/run_tests.pl
index a04fd98a0af2ced606f9421954bc953068831cdd..a91d7619003ab1568f5a8aebceb6cf19e1938208 100644 (file)
--- 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};