Mercurial > hg > nginx
changeset 874:98afa13ea7e5
add comment
author | Igor Sysoev <igor@sysoev.ru> |
---|---|
date | Sun, 26 Nov 2006 16:56:41 +0000 |
parents | f92ad15c2db1 |
children | 7af8276b1c2f |
files | src/http/modules/perl/ngx_http_perl_module.c |
diffstat | 1 files changed, 3 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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; }