提交 fb36ca12 编写于 作者: R Richard Levitte

Don't go into dotted directories when copying Makefile.in to Makefile

Reviewed-by: NRich Salz <rsalz@openssl.org>
上级 769adcfe
...@@ -1297,7 +1297,12 @@ foreach my $alg ( 'bn' ) { ...@@ -1297,7 +1297,12 @@ foreach my $alg ( 'bn' ) {
# Copy all Makefile.in to Makefile (except top-level) # Copy all Makefile.in to Makefile (except top-level)
use File::Find; use File::Find;
use IO::File; use IO::File;
find(sub { find(
{
preprocess => sub {
grep(!/^\./, @_);
},
wanted => sub {
return if ($_ ne "Makefile.in" || $File::Find::dir eq "."); return if ($_ ne "Makefile.in" || $File::Find::dir eq ".");
my $in = IO::File->new($_, "r") or my $in = IO::File->new($_, "r") or
die sprintf "Error reading Makefile.in in %s: !$\n", die sprintf "Error reading Makefile.in in %s: !$\n",
...@@ -1313,7 +1318,9 @@ find(sub { ...@@ -1313,7 +1318,9 @@ find(sub {
$out->close() or $out->close() or
die sprintf "Error writing Makefile in %s: !$\n", die sprintf "Error writing Makefile in %s: !$\n",
$File::Find::dir; $File::Find::dir;
}, "."); },
},
".");
my %builders = ( my %builders = (
unixmake => sub { unixmake => sub {
......
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册