|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Sergey V. Leschenko 2:5020/400 15 Oct 2002 12:50:53 To : All Subject : -T и connect -------------------------------------------------------------------------------- hi,all есть такой участок кода (из модуля IMAP::Sieve) $self->{'Socket'} = IO::Socket::INET->new( PeerAddr => $self->{'Server'}, PeerPort => $self->{'Port'}, Proto => 'tcp' ); при использовании ключа -T получаем die с сообщением: Insecure dependency in connect while running with -T switch at /usr/lib/perl5/5.6.0/i386-linux/IO/Socket.pm line 108. в Socket.pm в 108 строке - вызов connect если использовать прямо заданное имя сервера (а не $self->{'Server'}), то нормально. имя сервера задается в основном скрипте как константа (модуль constant). Я не вижу причин, по которым это значение может быть tainted. Существуют средства для проверки, является ли переменная tainted? уж не является ли это багом перла? (v5.6.0 built for i386-linux) так как на v5.6.1 работает. -- Best regards, Sergey --- ifmail v.2.15dev5 * Origin: Adamant ISP news server (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/1341197309d0c.html, оценка из 5, голосов 10
|