2 # Copyright 2018 The OpenSSL Project Authors. All Rights Reserved.
4 # Licensed under the OpenSSL license (the "License"). You may not use
5 # this file except in compliance with the License. You can obtain a copy
6 # in the file LICENSE in the source distribution or at
7 # https://www.openssl.org/source/license.html
12 use File::Compare qw(compare_text);
14 my $buildfile = $config{build_file};
15 my $buildfile_new = "$buildfile.$$";
16 my $depext = $target{dep_extension} || ".d";
19 map { (my $x = $_) =~ s|\.o$|$depext|; $x; }
20 grep { $unified_info{sources}->{$_}->[0] =~ /\.cc?$/ }
21 keys %{$unified_info{sources}};
23 open IBF, $buildfile or die "Trying to read $buildfile: $!\n";
24 open OBF, '>', $buildfile_new or die "Trying to write $buildfile_new: $!\n";
27 last if /^# DO NOT DELETE THIS LINE/;
28 print OBF or die "$!\n";
33 print OBF "# DO NOT DELETE THIS LINE -- make depend depends on it.\n";
36 open IBF,$_ or die "Trying to read $_: $!\n";
38 print OBF or die "$!\n";
44 if (compare_text($buildfile_new, $buildfile) != 0) {
45 rename $buildfile_new, $buildfile
46 or die "Trying to rename $buildfile_new -> $buildfile: $!\n";