вопрос к знатокам Perl (траблы с многопоточностью)

[Виталмий]

есть скрипт. следущей структуры.

Код: Выделить всё

use threads;

....
my @threads;
for(@array){push @threads,threads->create(\&funcmain,@var);}
for (@threads){$_->join}
....

sub funcmain
{
.....
&func1
.....
}

sub func1
{
...
&func2
...
#рекурсия
&func1
}

sub func2
{
....
}

суть следущая: есть фунция funcmain, которая нужна для того что пускать потоки с какими то переменными, она в свою очередь вызывает функцию рекурсию func1, которая в свою использует третью функцию.
у всех функций только локальные переменные.
работа скрипта всегда заканчивается ошибкой Segmentation fauled, этой ошибкой скрипт завершается в разное время, может 5 минут поработать, 10, 20.... я заметил, что он вылетает когда больше половина потоков завершили работу.
ошибочно ли я организую пототи... т.е. можно ли запускать функцию в отдельный поток которая использует другие функции?, хачу заметитить что эти потоки работают только со своими данными(файлы, каталоги).

[tba]

Есть минимальный пример неработающего скрипта? На тривиальных функциях проверил - работает.

P.S. Многопоточных приложений писал мало...

[Виталмий]

Есть минимальный пример неработающего скрипта?

наврятли вы его у себя захотите пустить. это паук.

[v04bvs]

Возможно используются не thread-safe библиотечные функции.

[Виталмий]

Возможно используются не thread-safe библиотечные функции.

Код: Выделить всё

use strict;
use LWP::UserAgent;
use Socket;
use threads;

вот и всё