1berry/webmin
1
0
Fork 0
Code Issues 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
Show Stats 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 $join = defined($join_char) ? $join_char : "=";
&read_file($file, \%old, \@order);
open(ARFILE, ">$file");
open(ARFILE, ">$file") || die "open of $file failed : $!";
my %done;
foreach $k (@order) {
if (exists($data_hash->{$k}) && !$done{$k}++) {