странное поведение подпрограммы

[norden]

Есть подпрограмма:

sub extr_dir {

$v = shift;

@tree = <$v>;

return @tree;

}

При обращении @tree = &extr_dir("*.*") массив @tree оказывается пустым. Если для теста набить в extr_dir массив какой-нибудь фигней, то он прекрасно передается. Вывод: листинг директорий () в подпрограмме не работает. Кто-нибудь знает почему?

[Phoinix]

Кажися проще просто вызвать так:

&extr_dir(@tree);

sub extr_dir {
...bla, bal, bla...
@_[0] = <$v>;
}

Вывод: листинг директорий ( ) в подпрограмме не работает. Кто-нибудь знает почему

У меня работает нормально... вот только в коде я не вижу где бы используешь это выражение...