Don't reference non-existent values

This commit is contained in:
Jamie Cameron
2023-04-28 12:00:04 -07:00
parent e3d4d2427c
commit 1e5032c7a3

View File

@ -1217,8 +1217,8 @@ local $file = @old ? $old[0]->{'file'} :
local $lref = &read_file_lines($file);
for(my $i=0; $i<@old || $i<@$values; $i++) {
local $old = $old[$i];
local $line = $values->[$i] eq "" ? $name :
local $old = $i < @old ? $old[$i] : undef;
local $line = $i < @$values || $values->[$i] eq "" ? $name :
"$name = $values->[$i]";
if ($old && defined($values->[$i])) {
# Updating