oysteikt/heimdal
0
0
Fork 0
Code Issues 5 Pull Requests Releases Activity

Rename over old file, but only if it changed

Browse Source
This commit is contained in:
Love Hörnquist Åstrand
2012-02-29 21:53:52 -08:00
parent 3ec78180ce
commit 053c44e100
1 changed files with 22 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
cf/make-proto.pl
View File

@@ -3,6 +3,7 @@
##use Getopt::Std; ##use Getopt::Std;
require 'getopts.pl'; require 'getopts.pl';
use File::Compare;
my $comment = 0; my $comment = 0;
my $if_0 = 0; my $if_0 = 0;
@@ -192,14 +193,14 @@ sub foo {
} }
if($opt_o) { if($opt_o) {
open(OUT, ">$opt_o"); open(OUT, ">${opt_o}.new");
$block = &foo($opt_o); $block = &foo($opt_o);
} else { } else {
$block = "__public_h__"; $block = "__public_h__";
} }
if($opt_p) { if($opt_p) {
open(PRIV, ">$opt_p"); open(PRIV, ">${opt_p}.new");
$private = &foo($opt_p); $private = &foo($opt_p);
} else { } else {
$private = "__private_h__"; $private = "__private_h__";
@@ -412,3 +413,22 @@ if($opt_p) {
close OUT; close OUT;
close PRIV; close PRIV;
if ($opt_o) {
if (compare("${opt_o}.new", ${opt_o}) != 0) {
printf("updating ${opt_o}\n");
rename("${opt_o}.new", ${opt_o});
} else {
unlink("${opt_o}.new");
}
}
if ($opt_p) {
if (compare("${opt_p}.new", ${opt_p}) != 0) {
printf("updating ${opt_p}\n");
rename("${opt_p}.new", ${opt_p});
} else {
unlink("${opt_p}.new");
}
}