# HG changeset patch
# User Igor Sysoev <igor@sysoev.ru>
# Date 1164560201 0
# Node ID 98afa13ea7e509579f242b862a95eac79d184569
# Parent  f92ad15c2db1871e80a17af87b54edd9065a46ee
add comment

diff --git a/src/http/modules/perl/ngx_http_perl_module.c b/src/http/modules/perl/ngx_http_perl_module.c
--- a/src/http/modules/perl/ngx_http_perl_module.c
+++ b/src/http/modules/perl/ngx_http_perl_module.c
@@ -694,6 +694,9 @@ ngx_http_perl_eval_anon_sub(pTHX_ ngx_st
 
     if (ngx_strncmp(p, "sub ", 4) == 0 || ngx_strncmp(p, "use ", 4) == 0) {
         *sv = eval_pv((char *) p, FALSE);
+
+        /* eval_pv() does not set ERRSV on failure */
+
         return;
     }