Zirkuläre Referenzen in $::auth auflösen, damit DB-Verbindung am Ende des Requests...
authorMoritz Bunkus <m.bunkus@linet-services.de>
Mon, 7 Mar 2011 14:53:02 +0000 (15:53 +0100)
committerMoritz Bunkus <m.bunkus@linet-services.de>
Mon, 7 Mar 2011 14:53:02 +0000 (15:53 +0100)
Conflicts:

SL/Auth/DB.pm

SL/Auth/DB.pm
SL/Dispatcher.pm

index 0168896..dd63506 100644 (file)
@@ -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;
 
index b485063..a2aa87e 100644 (file)
@@ -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;