Revision 43b16238
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
| SL/Auth/DB.pm | ||
|---|---|---|
| 3 | 3 |
use strict; |
| 4 | 4 |
|
| 5 | 5 |
use Carp; |
| 6 |
use Scalar::Util qw(weaken); |
|
| 6 | 7 |
|
| 7 | 8 |
use SL::Auth::Constants qw(:all); |
| 8 | 9 |
use SL::DBUtils; |
| ... | ... | |
| 14 | 15 |
my $self = {};
|
| 15 | 16 |
|
| 16 | 17 |
$self->{auth} = shift;
|
| 18 |
weaken $self->{auth};
|
|
| 17 | 19 |
|
| 18 | 20 |
bless $self, $type; |
| 19 | 21 |
|
| SL/Dispatcher.pm | ||
|---|---|---|
| 231 | 231 |
# cleanup |
| 232 | 232 |
$::locale = undef; |
| 233 | 233 |
$::form = undef; |
| 234 |
$::auth = undef; |
|
| 234 | 235 |
$::myconfig = (); |
| 235 | 236 |
Form::disconnect_standard_dbh; |
| 236 | 237 |
$::auth->expire_session_keys->save_session; |
Auch abrufbar als: Unified diff
Zirkuläre Referenzen in $::auth auflösen, damit DB-Verbindung am Ende des Requests geschlossen wird
Conflicts: