Re: [devel] perl.req and strange use wrappers

[Alexey Tourbin <at@altlinux.ru>]

[-- Attachment #1: Type: text/plain, Size: 906 bytes --]

On Sat, Jan 28, 2006 at 11:35:39PM +0300, Sergey Vlasov wrote:
> Используется это, например, таким образом:
> 
> use FVWM::Module::Toolkit qw(FileHandle IO::Select X11::Protocol>=0.52 Tk>=804.025 Tk::Balloon Tk::DragDrop Tk::DropSite Tk::LabFrame Tk::BrowseEntry Tk::PNG);

Я не вижу смысла в использовании такой конструкции.

> В результате perl.req не видит таких зависимостей.
> 
> С этим вообще как-то можно бороться централизованно (т.е., запатчив
> этот самый sub import в FVWM::Module::Toolkit)?  Или единственный
> способ - написать в том месте, где стоит use FVWM::Module::Toolkit,
> нормальные use на все используемые модули?

Лучше всего написать нормальные use.  Бороться можно, только если
изобрести альтернативный алгоритм поиска зависимостей.  Самый дубовый,
который в данном случае может сработать, -- это что-то вроде

	perl -le "use $shell_var_module; print keys %INC"

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]