diff options
| author | Igor Sysoev <igor@sysoev.ru> | 2006-11-26 16:56:41 +0000 |
|---|---|---|
| committer | Igor Sysoev <igor@sysoev.ru> | 2006-11-26 16:56:41 +0000 |
| commit | 9a29d129f20873f4de4553eab00b869815a75bac (patch) | |
| tree | 0cdd6177ef7d8e12a78ab633bf14db3cf5920efe /src/http/modules/perl/ngx_http_perl_module.c | |
| parent | 36d520d686b2109f1fcece8a4bdeb044b49e791a (diff) | |
| download | nginx-9a29d129f20873f4de4553eab00b869815a75bac.tar.gz nginx-9a29d129f20873f4de4553eab00b869815a75bac.zip | |
add comment
Diffstat (limited to 'src/http/modules/perl/ngx_http_perl_module.c')
| -rw-r--r-- | src/http/modules/perl/ngx_http_perl_module.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/http/modules/perl/ngx_http_perl_module.c b/src/http/modules/perl/ngx_http_perl_module.c index 9674358e4..e460550d7 100644 --- 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_str_t *handler, SV **sv) 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; } |