Commit 0d5d76c8 authored Nov 07, 2017 by Andy Polyakov

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)

parent d1d6c69b

util/copy-if-different.pl

+2 −1

Original line number	Diff line number	Diff line
		@@ -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, $_;
		}

util/copy.pl

+2 −1

Original line number	Diff line number	Diff line
		@@ -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, $_;
		}