#
######################################################################
-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 }(@_);