yuzu-emu/mbedtls
1
0
Fork 0
mirror of https://github.com/yuzu-emu/mbedtls.git synced 2024-12-02 02:04:19 +01:00
Code Issues Packages Projects Releases Wiki Activity

config.pl get: don't rewrite config.h; detect write errors

Browse Source 
scripts/config.pl would always rewrite config.h if it was reading it.
This commit changes it to not modify the file when only reading is
required, i.e. for the get command.

Also, die if writing config.h fails (e.g. disk full).
This commit is contained in:
Gilles Peskine 2017-10-09 16:54:28 +02:00 committed by Simon Butcher
parent 134a082455
commit 58e5fdc0ca
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
scripts/config.pl
View File

@ -175,7 +175,10 @@ if ($action eq "realfull") {
$no_exclude_re = join '|', @non_excluded; $no_exclude_re = join '|', @non_excluded;
} }
open my $config_write, '>', $config_file or die "write $config_file: $!\n"; my $config_write = undef;
if ($action ne "get") {
open $config_write, '>', $config_file or die "write $config_file: $!\n";
}
my $done; my $done;
for my $line (@config_lines) { for my $line (@config_lines) {
@ -211,7 +214,9 @@ for my $line (@config_lines) {
} }
} }
print $config_write $line; if (defined $config_write) {
print $config_write $line or die "write $config_file: $!\n";;
}
} }
# Did the set command work? # Did the set command work?
@ -223,10 +228,12 @@ if ($action eq "set"&& $force_option && !$done) {
$line .= "\n"; $line .= "\n";
$done = 1; $done = 1;
print $config_write $line; print $config_write $line or die "write $config_file: $!\n";
} }
close $config_write; if (defined $config_write) {
close $config_write or die "close $config_file: $!\n";
}
if ($action eq "get") { if ($action eq "get") {
if($done) { if($done) {