X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/5d23fb605bc40f699ab677e6ee13a7e498c9fb14..251480b566f6ab73f5546bb3fd303ccae9701d6e:/SL/Auth.pm

diff --git a/SL/Auth.pm b/SL/Auth.pm
index 10855e25b..e7f8f7bee 100644
--- a/SL/Auth.pm
+++ b/SL/Auth.pm
@@ -824,7 +824,7 @@ sub evaluate_rights_ary {
     }
   }
 
-  $main::lxdebug->enter_sub(2);
+  $main::lxdebug->leave_sub(2);
 
   return $value;
 }
@@ -858,7 +858,7 @@ sub _parse_rights_string {
       pop @stack;
 
       if (!@stack) {
-        $main::lxdebug->enter_sub(2);
+        $main::lxdebug->leave_sub(2);
         return 0;
       }
 
@@ -874,7 +874,7 @@ sub _parse_rights_string {
 
   my $result = ($access || (1 < scalar @stack)) ? 0 : evaluate_rights_ary($stack[0]);
 
-  $main::lxdebug->enter_sub(2);
+  $main::lxdebug->leave_sub(2);
 
   return $result;
 }