X-Git-Url: https://git.openssl.org/?p=openssl.git;a=blobdiff_plain;f=util%2Fcopy.pl;h=f93fb251db52b1618431ce0c0091e27619f79d89;hp=ef4d8708e24789cc3cfc50fa77ca5f4c7481bbbe;hb=1097d2a39e3f85d4dac2c4d1c238792d6e1d959f;hpb=1697a81bafcc9a65012b62ba01c1661bf40e5edb;ds=inline diff --git a/util/copy.pl b/util/copy.pl index ef4d8708e2..f93fb251db 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, $_; } @@ -40,7 +41,7 @@ if ($fnum <= 1) } $dest = pop @filelist; - + if ($fnum > 2 && ! -d $dest) { die "Destination must be a directory"; @@ -73,5 +74,5 @@ foreach (@filelist) close(OUT); print "Copying: $_ to $dfile\n"; } - +