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

[Andrey Antonov]

А у меня перл не тредовый и более того, после того как на 0.3.61 откатил,
все работает.

-----
Антонов Андрей

24.11.06, Igor Sysoev <is at rambler-co.ru> написал(а):
>
> On Fri, 24 Nov 2006, Veryazov Sergey wrote:
>
> > Беру код из примера:
> > 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
>
> По-видимому, начиная с 0.3.38, nginx не работал с трэдовым перлом.
> Патч прилагается.
>
>
> Игорь Сысоев
> http://sysoev.ru
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://nginx.org/pipermail/nginx-ru/attachments/20061124/a56bfdcf/attachment.html>