From 9122bdf775a3e09d9f8d994af3a53fb33fa06bb7 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Fri, 13 May 2011 10:41:13 +0200
Subject: [PATCH] enter_sub/leave_sub in Auth::save_session

---
 SL/Auth.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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 {
-- 
2.20.1