sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2025-02-02 09:47:23 +03:00
Code

s4-script: cleanup tmp files in minimial_includes.pl

Browse Source 
also changes to use perl fns, instead of shell
This commit is contained in:
Andrew Tridgell 2009-10-20 14:31:50 +11:00
parent 14111d606b
commit 8585cf1a78
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
source4/script/minimal_includes.pl
View File

@ -67,7 +67,10 @@ sub test_include($$$$)
$lines->[$i] = "";
`/bin/mv -f $fname $fname.misaved` && die "failed to rename $fname";
my $mname = $fname . ".misaved";
unlink($mname);
rename($fname, $mname) || die "failed to rename $fname";
save_lines($fname, $lines);
my $out = test_compile($fname);
@ -79,6 +82,7 @@ sub test_include($$$$)
print "$fname: not removing system include $line\n";
} else {
print "$fname: removing $line\n";
unlink($mname);
return;
}
} else {
@ -87,7 +91,7 @@ sub test_include($$$$)
}
$lines->[$i] = $line;
`/bin/mv -f $fname.misaved $fname` && die "failed to restore $fname";
rename($mname, $fname) || die "failed to restore $fname";
}
sub process_file($)