michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-02-03 14:13:29 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Also die if open fails

Browse Source
This commit is contained in:
Jamie Cameron
2022-08-12 10:53:18 -07:00
parent 5dfb016abf
commit 78b7ad19ed
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
copyconfig.pl
View File

@@ -145,7 +145,7 @@ my ($file, $data_hash, $join_char) = @_;
my (%old, @order); my (%old, @order);
my $join = defined($join_char) ? $join_char : "="; my $join = defined($join_char) ? $join_char : "=";
&read_file($file, \%old, \@order); &read_file($file, \%old, \@order);
open(ARFILE, ">$file"); open(ARFILE, ">$file") || die "open of $file failed : $!";
my %done; my %done;
foreach $k (@order) { foreach $k (@order) {
if (exists($data_hash->{$k}) && !$done{$k}++) { if (exists($data_hash->{$k}) && !$done{$k}++) {