perl glob: make sure to put quotes around the pattern, in case of spaces

[openssl.git] / test / run_tests.pl

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