как уйти от циклической рекурсии?

фиксить багу

>фиксить багу

Браво loki_!
Какой вопрос - такой ответ ..
Какой стол - такой стул ..
и тд.

> выжирает полностью семсот метров оперативки + столько же свопа

... хорошо живется л'юзерам, однака

ладно, если серьезно - perlom не пользовался,
но зато активно пользовался
http://perl.apache.org/docs/1.0/guide/debug.html

Посмотри, может, там найдешь ответ ;-)

> И вешает компьютер.

ты подожди макс 10 мин - процесс будет убит

alarm 5; $SIG{ALRM} = sub { exit; };

exit; = не "уйти от", "а пойти на"

$failsafe = 0;

while ( $flag && ($failsafe++ < 999999) )
{
  ...
}

это было на php :)

а вот перл:

my $failsafe = 0;

while ( $flag && ($failsafe++ < 999999) ) { ... }

А типа нормально продумать терминальную и рекурсивные ветви функции?