From: Richard Levitte <levitte@openssl.org>
Date: Tue, 3 May 2016 21:58:38 +0000 (+0200)
Subject: Allow spaces in filenames when using perl's glob
X-Git-Tag: OpenSSL_1_1_0-pre6~940
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=1697a81bafcc9a65012b62ba01c1661bf40e5edb;p=openssl

Allow spaces in filenames when using perl's glob

Reviewed-by: Matt Caswell <matt@openssl.org>
---

diff --git a/util/copy-if-different.pl b/util/copy-if-different.pl
index 63a9a05f31..2bf7835827 100755
--- a/util/copy-if-different.pl
+++ b/util/copy-if-different.pl
@@ -18,7 +18,7 @@ my @filelist;
 
 foreach my $arg (@ARGV) {
 	$arg =~ s|\\|/|g;	# compensate for bug/feature in cygwin glob...
-	foreach (glob $arg)
+	foreach (glob qq("$arg"))
 		{
 		push @filelist, $_;
 		}
diff --git a/util/copy.pl b/util/copy.pl
index c4bcccdee6..ef4d8708e2 100644
--- a/util/copy.pl
+++ b/util/copy.pl
@@ -26,7 +26,7 @@ foreach $arg (@ARGV) {
 		next;
 		}
 	$arg =~ s|\\|/|g;	# compensate for bug/feature in cygwin glob...
-	foreach (glob $arg)
+	foreach (glob qq("$arg"))
 		{
 		push @filelist, $_;
 		}