Commit 1097d2a3 authored by Andy Polyakov's avatar Andy Polyakov
Browse files

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: default avatarRich Salz <rsalz@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/4695)
parent 72858038

util/copy.pl

+2 −1
Original line number Diff line number Diff line
@@ -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, $_;

		}