X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/f9676efea9ccfa01df2a57dca9c45cc8fde0d09e..f3ea72046a1a1a00849fe95bf673ea5d220ecdb1:/SL/DB/Helpers/Metadata.pm diff --git a/SL/DB/Helpers/Metadata.pm b/SL/DB/Helpers/Metadata.pm index 30c59f428..e6020a287 100644 --- a/SL/DB/Helpers/Metadata.pm +++ b/SL/DB/Helpers/Metadata.pm @@ -17,7 +17,7 @@ sub default_manager_base_class { sub initialize { my $self = shift; - $self->make_attr_auto_helpers; + $self->make_attr_auto_helpers unless $self->is_initialized; $self->SUPER::initialize(@_); }