|
|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Oleh Khoma 2:5020/175.2 27 Nov 2001 14:33:39 To : All Subject : Apache::PerlRunFilter -------------------------------------------------------------------------------- Привет Всем! Юзаю Apache::PerlRunFilter из дистрибутива Apache-Filter-1.019 с mod_perl-1.26. Мож я чего-то не понимаю?? Похоже на то, что Apache::PerlRunFilter не вызывает функцию filter_register() в хэндлере. ================httpd.conf <Files *.cgi> SetHandler perl-script PerlSetVar Filter On PerlHandler Apache::PerlRunFilter Apache::SSI </Files> =========================== =================Apache::PerlRunFilter 20 sub handler { 21 my ($package, $r) = @_; 22 ($package, $r) = (__PACKAGE__, $package) unless $r; 23 $r = $r->filter_register; ############## добавлено мной =========================== Чтобы убедиться что проблема именно в этом, добавил строчку помеченную циферкой 23 и все заработало. До этого было: [Tue Nov 20 21:30:22 2001] [error] Can't locate object method "filter_input" via package "Apache" (perhaps you forgot to load "Apache"?) at /usr/lib/perl5/site_perl/5.6.1/Apache/PerlRunFilter.pm line 29. В результате пользуюсь таким враппером: --------------- package My::Apache::PerlRunFilter; use strict; use Apache::PerlRunFilter; our @ISA = qw(Apache::PerlRunFilter); sub handler ($$) { # Передерто из Apache::RegistryFilter my ($class, $r) = @_ > 1 ? (shift, shift) : (__PACKAGE__, shift); $class->SUPER::handler($r->filter_register); } 1; --------------- Hо! Мож я чего-то не понимаю и на самом деле это не баг в Apache::PerlRunFilter??? Буду благодарен за любые подсказки. -- Oleh Khoma [Email:okhoma@mail.ru][ICQ:55191139][FIDO:2:462/90.80] --- ifmail v.2.15 * Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/330000db00e9.html, оценка из 5, голосов 10
|