[openssl-commits] [openssl] OpenSSL_1_0_2-stable update

[Andy Polyakov]

The branch OpenSSL_1_0_2-stable has been updated
       via  0d5d76c81a420eb243a9a91327c494a8fd5b189f (commit)
      from  d1d6c69b6fd25e71dbae67fad17b2c7737f6b2dc (commit)


- Log -----------------------------------------------------------------
commit 0d5d76c81a420eb243a9a91327c494a8fd5b189f
Author: Andy Polyakov <appro at openssl.org>
Date:   Tue Nov 7 21:38:30 2017 +0100

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

-----------------------------------------------------------------------

Summary of changes:
 util/copy-if-different.pl | 3 ++-
 util/copy.pl              | 3 ++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/util/copy-if-different.pl b/util/copy-if-different.pl
index e1245f5..5420f3f 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 a6b2a54..9c0e68c 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, $_;
 		}