Я кстати тоже писал об этой ошибке. Хотелось бы понять из-за чего она возникает, возможно проблемы с конфигурацией перла, от каких параметров тогда это зависит?<br><br>-----<br>С уважением,<br>Антонов Андрей<br><br><div><span class="gmail_quote">
24.11.06, <b class="gmail_sendername">Veryazov Sergey</b> &lt;<a href="mailto:veryazov@mail.ru">veryazov@mail.ru</a>&gt; написал(а):</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Беру код из примера:<br><a href="http://www.sysoev.ru/nginx/docs/http/ngx_http_perl_module.html">http://www.sysoev.ru/nginx/docs/http/ngx_http_perl_module.html</a><br><br>Выдает ошибку:<br><br>2006/11/24 12:01:40 [error] 30314#0: *3 call_sv(&quot;
<br><br>&nbsp;&nbsp;&nbsp;&nbsp;sub {<br>&nbsp;&nbsp;&nbsp;&nbsp;my $r = shift;<br>&nbsp;&nbsp;&nbsp;&nbsp;my $ua = $r-&gt;header_in(&quot;User-Agent&quot;);<br><br>&nbsp;&nbsp;&nbsp;&nbsp;return &quot;&quot; if $ua =~ /Opera/;<br>&nbsp;&nbsp;&nbsp;&nbsp;return &quot;1&quot; if $ua =~ / MSIE [6-9]\.\d+/;<br>&nbsp;&nbsp;&nbsp;&nbsp;return &quot;&quot;;
<br>&nbsp;&nbsp;&nbsp;&nbsp;}<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&quot;) failed: &quot;Can't call method &quot;header_in&quot; on an undefined value at (eval<br>2) line 3.&quot;<br><br>Оказывается, что параметр запроса не передается в функцию:<br>perl_set&nbsp;&nbsp;$test 'sub { my $r = shift; return &quot;($r)&quot; }';
<br>в итоге $test = '()';<br><br>В чем проблема?<br><br>nginx version: nginx/0.4.13<br>built by gcc 4.1.1 20060525 (Red Hat 4.1.1-1)<br><br>$perl -v<br>This is perl, v5.8.8 built for x86_64-linux-thread-multi<br><br>С уважением,
<br>Верязов Сергей<br><br><br></blockquote></div><br>