|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Andrey Sapozhnikov 2:5020/400 23 Apr 2002 18:39:48
To : Victor Wagner
Subject : Re: UNIVERSAL::can и taint check
--------------------------------------------------------------------------------
Victor Wagner wrote:
> работает (с ровно теми же модулями) и под taint check. В связи с этим
> идея что taint check-у не нравится group writable каталоги в @INC
> кажется сомнительной.
Собственно UNIVERSAL::can это вызов двух функций perl API.
gv_stashpvn и gv_fetchmethod_autoload. Первая находит stash
хранящийся в AV глоба ${module}:: (кстати его имя может отличаться
от данного, например после *{main::Module2::} = \%{main::Module1::})
Вторая вызывается с autoload==FALSE и находит метод в заданном stash
или по иерархии @ISA без инициирования автозагрузки. Hикаких проверок
на tainted data там нет.
> А ошибку воспроизвести действительно нетривиально. Там понимаешь ли
> всего 60 000 строк исходников, и Артем честно признался что данный
> минимальный фрагмент ошибку не воспроизводит, а только иллюстрирует.
> Выдрать минимальный фрагмент, который ее воспроизводит, нам пока не
> удалось
А в проект заглянуть на условии NDA?
Андрей
P.S. Hа всякий случай, перед вызовом eval "require... установите
коллектор варнингов типа:
$SIG{__WARN__} = sub { print STDERR @_, "\n" };
вдруг что-то прояснится...
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
