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

[Alexey Polyakov]

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