diff options
author | Richard Levitte <levitte@openssl.org> | 2016-05-25 15:02:20 +0200 |
---|---|---|
committer | Richard Levitte <levitte@openssl.org> | 2016-05-27 17:41:32 +0200 |
commit | 04b7805a8686d33186ca9e0571355e7fa2ef2d86 (patch) | |
tree | 71e306eb9af5191d21f8773b73cc99c662bb95de /test | |
parent | cb66390857fe9477e567f163302b4e34aeff8e6e (diff) |
perl glob: make sure to put quotes around the pattern, in case of spaces
RT#4486
Reviewed-by: Matt Caswell <matt@openssl.org>
Diffstat (limited to 'test')
-rw-r--r-- | test/recipes/80-test_ssl_new.t | 2 | ||||
-rw-r--r-- | test/run_tests.pl | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/test/recipes/80-test_ssl_new.t b/test/recipes/80-test_ssl_new.t index 5cafb9fdfd..07f1291f69 100644 --- a/test/recipes/80-test_ssl_new.t +++ b/test/recipes/80-test_ssl_new.t @@ -20,7 +20,7 @@ setup("test_ssl_new"); $ENV{TEST_CERTS_DIR} = srctop_dir("test", "certs"); -my @conf_srcs = glob(srctop_file("test", "ssl-tests", "*.conf.in")); +my @conf_srcs = glob('"'.srctop_file("test", "ssl-tests", "*.conf.in").'"'); map { s/;.*// } @conf_srcs if $^O eq "VMS"; my @conf_files = map { basename($_) } @conf_srcs; map { s/\.in// } @conf_files; diff --git a/test/run_tests.pl b/test/run_tests.pl index 158eaf9bab..6ce1521a75 100644 --- a/test/run_tests.pl +++ b/test/run_tests.pl @@ -42,13 +42,13 @@ my $list_mode = scalar(grep /^list$/, @tests) != 0; if (grep /^(alltests|list)$/, @tests) { @tests = grep { basename($_) =~ /^[0-9][0-9]-[^\.]*\.t$/ - } glob(catfile($recipesdir,"*.t")); + } glob('"'.catfile($recipesdir,"*.t").'"'); } else { my @t = (); foreach (@tests) { push @t, grep { basename($_) =~ /^[0-9][0-9]-[^\.]*\.t$/ - } glob(catfile($recipesdir,"*-$_.t")); + } glob('"'.catfile($recipesdir,"*-$_.t").'"'); } @tests = @t; } |