From 43b16238344f6c4203db6b660f9d2e68807d4643 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Mon, 7 Mar 2011 15:53:02 +0100
Subject: [PATCH] =?utf8?q?Zirkul=C3=A4re=20Referenzen=20in=20$::auth=20auf?=
 =?utf8?q?l=C3=B6sen,=20damit=20DB-Verbindung=20am=20Ende=20des=20Requests?=
 =?utf8?q?=20geschlossen=20wird?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Conflicts:

	SL/Auth/DB.pm
---
 SL/Auth/DB.pm    | 2 ++
 SL/Dispatcher.pm | 1 +
 2 files changed, 3 insertions(+)

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;
 
diff --git a/SL/Dispatcher.pm b/SL/Dispatcher.pm
index b48506342..a2aa87e85 100644
--- a/SL/Dispatcher.pm
+++ b/SL/Dispatcher.pm
@@ -231,6 +231,7 @@ sub handle_request {
   # cleanup
   $::locale   = undef;
   $::form     = undef;
+  $::auth     = undef;
   $::myconfig = ();
   Form::disconnect_standard_dbh;
   $::auth->expire_session_keys->save_session;
-- 
2.20.1