From 18f8e443738f22f59556aa4dde91f3fdcc324b4e Mon Sep 17 00:00:00 2001 From: Richard Levitte Date: Tue, 13 Mar 2018 21:55:52 +0100 Subject: [PATCH 1/1] Remove the temporary file in case it wasn't renamed ... also, name it with "-$$" added instead of ".$$" Reviewed-by: Andy Polyakov (Merged from https://github.com/openssl/openssl/pull/5608) --- util/add-depends.pl | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/util/add-depends.pl b/util/add-depends.pl index 9a57da23a2..573986d686 100644 --- a/util/add-depends.pl +++ b/util/add-depends.pl @@ -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) {} -- 2.34.1