From: Andy Polyakov <appro@openssl.org>
Date: Tue, 7 Nov 2017 20:38:30 +0000 (+0100)
Subject: util/copy.pl: work around glob quirk in some of earlier 5.1x Perl versions.
X-Git-Tag: OpenSSL_1_0_2n~15
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0d5d76c81a420eb243a9a91327c494a8fd5b189f;p=thirdparty%2Fopenssl.git

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>
Reviewed-by: Richard Levitte <levitte@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/4696)
---

diff --git a/util/copy-if-different.pl b/util/copy-if-different.pl
index e1245f54aff..5420f3f2bd3 100644
--- a/util/copy-if-different.pl
+++ b/util/copy-if-different.pl
@@ -12,7 +12,8 @@ my @filelist;
 
 foreach my $arg (@ARGV) {
 	$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, $_;
 		}
diff --git a/util/copy.pl b/util/copy.pl
index a6b2a54ec6f..9c0e68c4146 100644
--- a/util/copy.pl
+++ b/util/copy.pl
@@ -19,7 +19,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, $_;
 		}