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

[Igor Sysoev]

On Mon, 13 Mar 2006, Alexey Polyakov wrote:

> Попробовал я запустить перл, с примерами из документации.
> Если делаю 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: "...."

Какая версия перла ?


Игорь Сысоев
http://sysoev.ru