From 04b7805a8686d33186ca9e0571355e7fa2ef2d86 Mon Sep 17 00:00:00 2001
From: Richard Levitte <levitte@openssl.org>
Date: Wed, 25 May 2016 15:02:20 +0200
Subject: perl glob: make sure to put quotes around the pattern, in case of
 spaces

RT#4486

Reviewed-by: Matt Caswell <matt@openssl.org>
---
 test/run_tests.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'test/run_tests.pl')

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;
 }
-- 
cgit v1.2.1