Mercurial > hg > nginx

changeset 3132:6cb238e091a9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
+++ b/src/http/modules/perl/ngx_http_perl_module.c
@@ -761,7 +761,10 @@ ngx_http_perl_eval_anon_sub(pTHX_ ngx_st
         }
     }
 
-    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 */