From 1097d2a39e3f85d4dac2c4d1c238792d6e1d959f Mon Sep 17 00:00:00 2001
From: Andy Polyakov <appro@openssl.org>
Date: Tue, 7 Nov 2017 20:59:00 +0100
Subject: [PATCH] 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)
---
 util/copy.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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, $_;
 		}