提交 18f8e443 编写于 作者: R Richard Levitte

Remove the temporary file in case it wasn't renamed

...  also, name it with "-$$" added instead of ".$$"
Reviewed-by: NAndy Polyakov <appro@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/5608)
上级 4ba5ce65
...@@ -12,7 +12,7 @@ use configdata; ...@@ -12,7 +12,7 @@ use configdata;
use File::Compare qw(compare_text); use File::Compare qw(compare_text);
my $buildfile = $config{build_file}; my $buildfile = $config{build_file};
my $buildfile_new = "$buildfile.$$"; my $buildfile_new = "$buildfile-$$";
my $depext = $target{dep_extension} || ".d"; my $depext = $target{dep_extension} || ".d";
my @deps = my @deps =
grep { -f $_ } grep { -f $_ }
...@@ -45,4 +45,6 @@ if (compare_text($buildfile_new, $buildfile) != 0) { ...@@ -45,4 +45,6 @@ if (compare_text($buildfile_new, $buildfile) != 0) {
rename $buildfile_new, $buildfile rename $buildfile_new, $buildfile
or die "Trying to rename $buildfile_new -> $buildfile: $!\n"; or die "Trying to rename $buildfile_new -> $buildfile: $!\n";
} }
# On VMS, we want to remove all generations of this file, in case there are
# more than one
while (unlink $buildfile_new) {}
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册