Revision c13acbec
Von Sven Schöling vor mehr als 13 Jahren hinzugefügt
| SL/Dispatcher.pm | ||
|---|---|---|
|
$::auth = SL::Auth->new;
|
||
|
$::form = undef;
|
||
|
%::myconfig = ();
|
||
|
%::called_subs = (); # currently used for recursion detection
|
||
|
}
|
||
|
|
||
|
$SIG{__WARN__} = sub {
|
||
| ... | ... | |
|
$::cgi = CGI->new('');
|
||
|
$::locale = Locale->new($::lx_office_conf{system}->{language});
|
||
|
$::form = Form->new;
|
||
|
%::called_subs = ();
|
||
|
$::instance_conf = SL::InstanceConfiguration->new;
|
||
|
|
||
|
my $session_result = $::auth->restore_session;
|
||
| bin/mozilla/common.pl | ||
|---|---|---|
|
#
|
||
|
######################################################################
|
||
|
|
||
|
use Carp;
|
||
|
use SL::Common;
|
||
|
use SL::DB::Helper::Mappings;
|
||
|
use SL::DBUtils;
|
||
| ... | ... | |
|
$form->error(sprintf($locale->text("Attempt to call an undefined sub named '%s'"), $name));
|
||
|
}
|
||
|
|
||
|
$::called_subs{$name}++;
|
||
|
confess "RECURSION DETECTION: call_sub($name) called " . $::called_subs{$name} . " time(s)" if $::called_subs{$name} > 10;
|
||
|
|
||
|
{
|
||
|
no strict "refs";
|
||
|
&{ $name }(@_);
|
||
| t/structure/globals.t | ||
|---|---|---|
|
my (@globals, $testcount);
|
||
|
|
||
|
BEGIN {
|
||
|
@globals = qw(lxdebug auth myconfig form cgi lx_office_conf locale called_subs dispatcher instance_conf);
|
||
|
@globals = qw(lxdebug auth myconfig form cgi lx_office_conf locale dispatcher instance_conf);
|
||
|
$testcount = scalar(@Support::Files::testitems);
|
||
|
}
|
||
|
|
||
Auch abrufbar als: Unified diff
::called_subs ersatzlos gestrichen.
call_sub Rekursionen sind nicht mehr aufgetreten seit das System eingebaut
wurde, kein Grund auf Verdacht darauf zu prüfen.