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
|