X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/6cf3f7762efd40bee49a2b8f11bb4ab6915d9071..315172f0c69ae29e0751a4307e6273875f00c86d:/SL/DB/Helpers/Metadata.pm?ds=inline 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(@_); }