X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FAuth%2FDB.pm;h=dd6350623f1a7451c1e187b5d727185652eebe5a;hb=d57c45b55f6365773a7a326d8c724b0ff0950889;hp=0168896f9f4ef2bba9c34f4547613324740f6a66;hpb=327e6e57d242cd915f656fc95b2f485a494700e6;p=kivitendo-erp.git

diff --git a/SL/Auth/DB.pm b/SL/Auth/DB.pm
index 0168896f9..dd6350623 100644
--- a/SL/Auth/DB.pm
+++ b/SL/Auth/DB.pm
@@ -3,6 +3,7 @@ package SL::Auth::DB;
 use strict;
 
 use Carp;
+use Scalar::Util qw(weaken);
 
 use SL::Auth::Constants qw(:all);
 use SL::DBUtils;
@@ -14,6 +15,7 @@ sub new {
   my $self = {};
 
   $self->{auth} = shift;
+  weaken $self->{auth};
 
   bless $self, $type;