sub save_form {
$lxdebug->enter_sub();
- my $yaml = new YAML;
- $yaml->Indent(1);
- my $old_form = $yaml->dump($form);
+ my $old_form = YAML::Dump($form);
$old_form =~ s|!|!!|g;
$old_form =~ s|\n|!n|g;
$old_form =~ s|\r|!r|g;
$old_form =~ s|!r|\r|g;
$old_form =~ s|!n|\n|g;
$old_form =~ s|!!|!|g;
- $form = YAML::Load($old_form);
+ my $new_form = YAML::Load($old_form);
+ map({ $form->{$_} = $new_form->{$_}; } keys(%{$new_form}));
$lxdebug->leave_sub();
}