::called_subs ersatzlos gestrichen.

call_sub Rekursionen sind nicht mehr aufgetreten seit das System eingebaut
wurde, kein Grund auf Verdacht darauf zu prüfen.

diff --git a/SL/Dispatcher.pm b/SL/Dispatcher.pm
index 97a2f45..291953b 100644 (file)
--- a/SL/Dispatcher.pm
+++ b/SL/Dispatcher.pm
@@ -95,7 +95,6 @@ sub pre_startup_setup {
     $::auth        = SL::Auth->new;
     $::form        = undef;
     %::myconfig    = ();
-    %::called_subs = (); # currently used for recursion detection
   }
 
   $SIG{__WARN__} = sub {
@@ -171,7 +170,6 @@ sub handle_request {
   $::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;

diff --git a/bin/mozilla/common.pl b/bin/mozilla/common.pl
index dfa7d0f..1b054cf 100644 (file)
--- a/bin/mozilla/common.pl
+++ b/bin/mozilla/common.pl
@@ -9,7 +9,6 @@
 #
 ######################################################################
 
-use Carp;
 use SL::Common;
 use SL::DB::Helper::Mappings;
 use SL::DBUtils;
@@ -440,9 +439,6 @@ sub call_sub {
     $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 }(@_);

diff --git a/t/structure/globals.t b/t/structure/globals.t
index 7b5aa06..232dca6 100644 (file)
--- a/t/structure/globals.t
+++ b/t/structure/globals.t
@@ -7,7 +7,7 @@ use Support::Files;
 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);
 }