mod_perl

[Llama]

Это кусок конфига апача.

Код: Выделить всё

    <Files ~ "\.mpl$">
        PerlModule Apache::Registry
        SetHandler perl-script
        PerlHandler Apache::Registry::handler
        PerlSendHeader Off
        Options ExecCGI
        allow from all
    </Files>

Вот скрипт:

Код: Выделить всё

use Apache::Constants qw(:common);
use Apache::Request;
 
sub handler
{
my $r = Apache::Request->new(shift);
$r->send_http_header("text/plain");
$r->print("OK3");
return OK;
}
1; 

Не рабоатет - т.е. никаких ошибок в логаи и на экран ничкго не выводит - в acces.log запрос появляется.
Самое интересное, что в виде

Код: Выделить всё

use Apache::Constants qw(:common);
use Apache::Request;
my $r = Apache::Request->new(shift);
$r->send_http_header("text/plain");
$r->print("OK3");

Работает, но так совсем не интересно...

пробывал писать просто:

Код: Выделить всё

PerlHandler Apache::Registry

тот же результат был...