X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=SL%2FAuth%2FLDAP.pm;h=70e963d47896ff45cb12d3eb8c03c271694d07eb;hb=417cc3a7e5d4a96713b71b1d723196bddeeb01cc;hp=ea9326275524b912268fa0da11d2917174632182;hpb=dfa7a3a99a0b1ba731d1d4f81768308c10ace0d3;p=kivitendo-erp.git

diff --git a/SL/Auth/LDAP.pm b/SL/Auth/LDAP.pm
index ea9326275..70e963d47 100644
--- a/SL/Auth/LDAP.pm
+++ b/SL/Auth/LDAP.pm
@@ -2,6 +2,7 @@ package SL::Auth::LDAP;
 
 use English '-no_match_vars';
 
+use Scalar::Util qw(weaken);
 use SL::Auth::Constants qw(:all);
 
 use strict;
@@ -17,6 +18,7 @@ sub new {
   my $self = {};
 
   $self->{auth} = shift;
+  weaken $self->{auth};
 
   bless $self, $type;