Mercurial > hg > nginx
changeset 3132:6cb238e091a9
allow perl "sub{..."
author | Igor Sysoev <igor@sysoev.ru> |
---|---|
date | Tue, 15 Sep 2009 09:37:16 +0000 |
parents | 49fd9e436675 |
children | 28a6aa24b453 |
files | src/http/modules/perl/ngx_http_perl_module.c |
diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/http/modules/perl/ngx_http_perl_module.c Tue Sep 15 09:36:09 2009 +0000 +++ b/src/http/modules/perl/ngx_http_perl_module.c Tue Sep 15 09:37:16 2009 +0000 @@ -761,7 +761,10 @@ } } - if (ngx_strncmp(p, "sub ", 4) == 0 || ngx_strncmp(p, "use ", 4) == 0) { + if (ngx_strncmp(p, "sub ", 4) == 0 + || 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 */