Rooba
/
perkeep
mirror of https://github.com/perkeep/perkeep.git
1
1
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix build.pl optimization error when Makefile doesn't exist.

This commit is contained in:
Brad Fitzpatrick 2011-05-12 19:11:28 -07:00
parent 0714e7ca1c
commit acd6227b31
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
build.pl
View File

@ -372,9 +372,11 @@ sub gen_target_makefile {
sub set_file_contents { sub set_file_contents {
my ($fn, $new) = @_; my ($fn, $new) = @_;
open(my $fh, $fn) or die; if (-e $fn) {
my $cur = do { local $/; <$fh> }; open(my $fh, $fn) or die "Failed to write to $fn: $!";
return if $new eq $cur; my $cur = do { local $/; <$fh> };
return if $new eq $cur;
}
open(my $fh, ">$fn") or die; open(my $fh, ">$fn") or die;
print $fh $new; print $fh $new;
close($fh) or die; close($fh) or die;