Changeset 1134

Timestamp:

09/14/12 11:35:36 (12 years ago)

Author:

nanardon

Message:

Allocate Attribute over object if possible

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm (modified) (1 diff)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm

@@ -582 +582 @@
     foreach my $attr (sort { $a cmp $b } $base->list_canonical_fields($otype,
         $config->{only_rw} ? 'rw' : 'r')) {
-        my $oattr = $base->attribute($otype, $attr);
+        my $oattr = ref $self ? $self->attribute($attr) : $base->attribute($otype, $attr);
         if (ref $self) {
             my $val = $self->get_c_field($attr);