提交 1697a81b 编写于 作者: R Richard Levitte

Allow spaces in filenames when using perl's glob

Reviewed-by: NMatt Caswell <matt@openssl.org>
上级 c6cb8e3c
...@@ -18,7 +18,7 @@ my @filelist; ...@@ -18,7 +18,7 @@ my @filelist;
foreach my $arg (@ARGV) { foreach my $arg (@ARGV) {
$arg =~ s|\\|/|g; # compensate for bug/feature in cygwin glob... $arg =~ s|\\|/|g; # compensate for bug/feature in cygwin glob...
foreach (glob $arg) foreach (glob qq("$arg"))
{ {
push @filelist, $_; push @filelist, $_;
} }
......
...@@ -26,7 +26,7 @@ foreach $arg (@ARGV) { ...@@ -26,7 +26,7 @@ foreach $arg (@ARGV) {
next; next;
} }
$arg =~ s|\\|/|g; # compensate for bug/feature in cygwin glob... $arg =~ s|\\|/|g; # compensate for bug/feature in cygwin glob...
foreach (glob $arg) foreach (glob qq("$arg"))
{ {
push @filelist, $_; push @filelist, $_;
} }
......
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册