falsche Debug-Meldungen korrigiert.

leave_sub statt enter_sub.

diff --git a/SL/Auth.pm b/SL/Auth.pm
index 4b6f2fa2046171bc1b4cea6cb91b8467e3991cd6..72e36978f378148accd5126f2ba36b619fa1d645 100644 (file)
--- a/SL/Auth.pm
+++ b/SL/Auth.pm
@@ -829,7 +829,7 @@ sub evaluate_rights_ary {
     }
   }
 
     }
   }
 

-  $main::lxdebug->enter_sub(2);
+  $main::lxdebug->leave_sub(2);

 
   return $value;
 }
 
   return $value;
 }


@@ -863,7 +863,7 @@ sub _parse_rights_string {
       pop @stack;
 
       if (!@stack) {
       pop @stack;
 
       if (!@stack) {

-        $main::lxdebug->enter_sub(2);
+        $main::lxdebug->leave_sub(2);

         return 0;
       }
 
         return 0;
       }
 


@@ -879,7 +879,7 @@ sub _parse_rights_string {
 
   my $result = ($access || (1 < scalar @stack)) ? 0 : evaluate_rights_ary($stack[0]);
 
 
   my $result = ($access || (1 < scalar @stack)) ? 0 : evaluate_rights_ary($stack[0]);
 

-  $main::lxdebug->enter_sub(2);
+  $main::lxdebug->leave_sub(2);

 
   return $result;
 }
 
   return $result;
 }