Revision c13acbec
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
| bin/mozilla/common.pl | ||
|---|---|---|
| 9 | 9 |
# |
| 10 | 10 |
###################################################################### |
| 11 | 11 |
|
| 12 |
use Carp; |
|
| 13 | 12 |
use SL::Common; |
| 14 | 13 |
use SL::DB::Helper::Mappings; |
| 15 | 14 |
use SL::DBUtils; |
| ... | ... | |
| 440 | 439 |
$form->error(sprintf($locale->text("Attempt to call an undefined sub named '%s'"), $name));
|
| 441 | 440 |
} |
| 442 | 441 |
|
| 443 |
$::called_subs{$name}++;
|
|
| 444 |
confess "RECURSION DETECTION: call_sub($name) called " . $::called_subs{$name} . " time(s)" if $::called_subs{$name} > 10;
|
|
| 445 |
|
|
| 446 | 442 |
{
|
| 447 | 443 |
no strict "refs"; |
| 448 | 444 |
&{ $name }(@_);
|
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.