X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/6cf3f7762efd40bee49a2b8f11bb4ab6915d9071..b513b1ef51a01f90bd2a234a69fae4f69013d0f3:/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(@_); }