From: Andy Polyakov <appro@openssl.org>
Date: Tue, 7 Nov 2017 19:59:00 +0000 (+0100)
Subject: util/copy.pl: work around glob quirk in some of earlier 5.1x Perl versions.
X-Git-Tag: OpenSSL_1_1_1-pre1~453
X-Git-Url: https://git.openssl.org/gitweb/?p=openssl.git;a=commitdiff_plain;h=1097d2a39e3f85d4dac2c4d1c238792d6e1d959f;hp=72858038724cc503e532168e33acea689ee7b036

util/copy.pl: work around glob quirk in some of earlier 5.1x Perl versions.

In earlier 5.1x Perl versions quoting globs works only if there is
white space. If there is none, it's looking for names starting with ".

Reviewed-by: Rich Salz <rsalz@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/4695)
---

diff --git a/util/copy.pl b/util/copy.pl
index c4aeea6a18..f93fb251db 100644
--- a/util/copy.pl
+++ b/util/copy.pl
@@ -26,7 +26,8 @@ foreach $arg (@ARGV) {
 		next;
 		}
 	$arg =~ s|\\|/|g;	# compensate for bug/feature in cygwin glob...
-	foreach (glob qq("$arg"))
+	$arg = qq("$arg") if ($arg =~ /\s/);	# compensate for bug in 5.10...
+	foreach (glob $arg)
 		{
 		push @filelist, $_;
 		}