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 c4aeea6a18cdf667231dbf357f9abddf6602bc6f..f93fb251db52b1618431ce0c0091e27619f79d89 100644 (file)
--- 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, $_;
                }