ПРОЕКТЫ 


  АРХИВ 


Apache-Talk @lexa.ru 

Inet-Admins @info.east.ru 

Filmscanners @halftone.co.uk 

Security-alerts @yandex-team.ru 

nginx-ru @sysoev.ru 


  СТАТЬИ 


  ПЕРСОНАЛЬНОЕ 


  ПРОГРАММЫ 



ПИШИТЕ
ПИСЬМА












     АРХИВ :: nginx-ru
Nginx-ru mailing list archive (nginx-ru@sysoev.ru)

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

inline sub в perl_set что-то не хочет работать


  • To: nginx-ru@xxxxxxxxx
  • Subject: inline sub в perl_set что-то не хочет работать
  • From: "Alexey Polyakov" <alexey.polyakov@xxxxxxxxx>
  • Date: Mon, 13 Mar 2006 02:08:46 +0300
  • Domainkey-signature: a=rsa-sha1; q=dns; c=nofws; s=beta; d=gmail.com; h=received:message-id:date:from:to:subject:mime-version:content-type:content-transfer-encoding:content-disposition; b=DoyTrCPQAGbbusJoxJn1A70XXZR1qA6aGMpmTWNTKDLJ/vziCdn4yUiPbmVhZZniP25Vz6ogKK7HFmsSZcK2UrHKozE+NrqSN6YB2UrQ724H6r9IPRlOX1psgq7onltWSLMAuA3DMn42vZvrIaIvdWHu7Z1aE1FDpfvIa4oOqi0=

Попробовал я запустить перл, с примерами из документации.
Если делаю perl_set $var hello::handler, то отрабатывает как и ожидалось.
А если perl_set $var ' sub {....} ';, то ругается в error log:

2006/03/12 14:48:52 [error] 23133#0: *1 call_sv("

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

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

    ") failed: "Undefined subroutine &main::

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

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

     called." while closing request, client: ...., server: localhost,
URL: "/", host: "...."


--
Alexey Polyakov


 




Copyright © Lexa Software, 1996-2009.