mirror/openssl
2
0
Fork 0
mirror of https://github.com/openssl/openssl.git synced 2025-03-25 20:00:44 +08:00
Code Issues Packages Projects Releases Wiki Activity

Remove the temporary file in case it wasn't renamed

Browse Source 
...  also, name it with "-$$" added instead of ".$$"

Reviewed-by: Andy Polyakov <appro@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/5608)
This commit is contained in:
Richard Levitte 2018-03-13 21:55:52 +01:00
parent 4ba5ce6517
commit 18f8e44373
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
util/add-depends.pl
View File

@ -12,7 +12,7 @@ use configdata;
use File::Compare qw(compare_text);
my $buildfile = $config{build_file};
my $buildfile_new = "$buildfile.$$";
my $buildfile_new = "$buildfile-$$";
my $depext = $target{dep_extension} || ".d";
my @deps =
grep { -f $_ }
@ -45,4 +45,6 @@ if (compare_text($buildfile_new, $buildfile) != 0) {
rename $buildfile_new, $buildfile
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) {}