From f0e3fca9ee7052a9e4d034f988376b403a839140 Mon Sep 17 00:00:00 2001 From: Andy Polyakov 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 (Merged from https://github.com/openssl/openssl/pull/4695) (cherry picked from commit 1097d2a39e3f85d4dac2c4d1c238792d6e1d959f) --- util/copy.pl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/util/copy.pl b/util/copy.pl index ef4d8708e2..01964f585e 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, $_; } -- 2.25.1