- if (@cvars) {
- my $object = $entry->{object_to_save} || $entry->{object};
- my @orig_cvars = $object->custom_variables;
- for (@orig_cvars) {
- $_ = $changed_cvars{ $_->config->name } if $changed_cvars{ $_->config->name };
- delete $changed_cvars{ $_->config->name };
- }
- push @orig_cvars, values %changed_cvars;
-
- $object->custom_variables(\@orig_cvars);
+ my @orig_cvars = @{ $object->cvars_by_config };
+ for (@orig_cvars) {
+ $_ = $changed_cvars{ $_->config->name } if $changed_cvars{ $_->config->name };
+ delete $changed_cvars{ $_->config->name };