From: Sven Schöling Date: Fri, 13 May 2011 08:41:13 +0000 (+0200) Subject: enter_sub/leave_sub in Auth::save_session X-Git-Tag: release-2.6.3~25^2~37^2~12 X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=9122bdf775a3e09d9f8d994af3a53fb33fa06bb7;p=kivitendo-erp.git enter_sub/leave_sub in Auth::save_session --- diff --git a/SL/Auth.pm b/SL/Auth.pm index 67c8eed71..78b12e16c 100644 --- a/SL/Auth.pm +++ b/SL/Auth.pm @@ -632,12 +632,13 @@ sub create_or_refresh_session { } sub save_session { + $::lxdebug->enter_sub; my $self = shift; my $provided_dbh = shift; my $dbh = $provided_dbh || $self->dbconnect(1); - return unless $dbh; + $::lxdebug->leave_sub && return unless $dbh; $dbh->begin_work unless $provided_dbh; @@ -656,6 +657,7 @@ sub save_session { } $dbh->commit() unless $provided_dbh; + $::lxdebug->leave_sub; } sub set_session_value {