#
######################################################################
+use Carp;
use SL::Common;
use SL::DBUtils;
use SL::Form;
# -------------------------------------------------------------------------
+my %_called_subs = ();
+
sub call_sub {
$main::lxdebug->enter_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 }(@_);