diff options
| author | Richard Levitte <levitte@openssl.org> | 2016-05-30 11:20:37 +0200 |
|---|---|---|
| committer | Richard Levitte <levitte@openssl.org> | 2016-05-30 11:55:46 +0200 |
| commit | 23049aa52e2b4f12c2c2d7c7d80f5b1876a1b8ba (patch) | |
| tree | c3cc4e455726e1456cdaeb09b60f3eef6c87be69 /test/run_tests.pl | |
| parent | Make sure max in fmtstr() doesn't overflow into negativity (diff) | |
| download | openssl-23049aa52e2b4f12c2c2d7c7d80f5b1876a1b8ba.tar.xz openssl-23049aa52e2b4f12c2c2d7c7d80f5b1876a1b8ba.zip | |
perl: use the 'if' module to conditionally load File::Glob
Trying to use normal perl conditions to conditionally 'use' a perl
module didn't quite work. Using the 'if' module to do so does work.
Reviewed-by: Andy Polyakov <appro@openssl.org>
Diffstat (limited to 'test/run_tests.pl')
| -rw-r--r-- | test/run_tests.pl | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/test/run_tests.pl b/test/run_tests.pl index b1084138dd..6550e0b272 100644 --- a/test/run_tests.pl +++ b/test/run_tests.pl @@ -16,9 +16,7 @@ BEGIN { use File::Spec::Functions qw/catdir catfile curdir abs2rel rel2abs/; use File::Basename; -if ($^O ne "VMS") { - use File::Glob qw/glob/; -} +use if $^O ne "VMS", 'File::Glob' => qw/glob/; use Test::Harness qw/runtests $switches/; my $srctop = $ENV{SRCTOP} || $ENV{TOP}; |