Re: использование perl_set

["Andrey Antonov" <antonov.andrey@xxxxxxxxx>]

Я кстати тоже писал об этой ошибке. Хотелось бы понять из-за чего она возникает, возможно проблемы с конфигурацией перла, от каких параметров тогда это зависит?

-----
С уважением,
Антонов Андрей

24.11.06, Veryazov Sergey <veryazov@xxxxxxx> написал(а):

Беру код из примера:
http://www.sysoev.ru/nginx/docs/http/ngx_http_perl_module.html

Выдает ошибку:

2006/11/24 12:01:40 [error] 30314#0: *3 call_sv("

    sub {
    my $r = shift;
    my $ua = $r->header_in("User-Agent");

    return "" if $ua =~ /Opera/;
    return "1" if $ua =~ / MSIE [6-9]\.\d+/;
    return "";
    }

    ") failed: "Can't call method "header_in" on an undefined value at (eval
2) line 3."

Оказывается, что параметр запроса не передается в функцию:
perl_set  $test 'sub { my $r = shift; return "($r)" }';
в итоге $test = '()';

В чем проблема?

nginx version: nginx/0.4.13
built by gcc 4.1.1 20060525 (Red Hat 4.1.1-1)

$perl -v
This is perl, v5.8.8 built for x86_64-linux-thread-multi

С уважением,
Верязов Сергей