Fix script failures on ZoneEdit

This commit is contained in:
Ziemowit Łąski 2023-06-03 06:43:08 +00:00
parent 82af20f8d4
commit bbed067864

View file

@ -4741,7 +4741,7 @@ sub nic_zoneedit1_update {
my @reply = split /\n/, $reply; my @reply = split /\n/, $reply;
foreach my $line (@reply) { foreach my $line (@reply) {
if ($line =~ /^[^<]*<(SUCCESS|ERROR)\s+([^>]+)>(.*)/) { if ($h && $line =~ /^[^<]*<(SUCCESS|ERROR)\s+([^>]+)>(.*)/) {
my ($status, $assignments, $rest) = ($1, $2, $3); my ($status, $assignments, $rest) = ($1, $2, $3);
my ($left, %var) = parse_assignments($assignments); my ($left, %var) = parse_assignments($assignments);