Revision 97ca7180
Von Bernd Blessmann vor fast 15 Jahren hinzugefügt
SL/Auth.pm | ||
---|---|---|
}
|
||
}
|
||
|
||
$main::lxdebug->enter_sub(2);
|
||
$main::lxdebug->leave_sub(2);
|
||
|
||
return $value;
|
||
}
|
||
... | ... | |
pop @stack;
|
||
|
||
if (!@stack) {
|
||
$main::lxdebug->enter_sub(2);
|
||
$main::lxdebug->leave_sub(2);
|
||
return 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;
|
||
}
|
Auch abrufbar als: Unified diff
falsche Debug-Meldungen korrigiert.
leave_sub statt enter_sub.