Mercurial > hg > nginx-vendor-current
comparison src/http/modules/perl/ngx_http_perl_module.c @ 172:1b490fc19afa NGINX_0_3_33
nginx 0.3.33
*) Feature: the "http_503" parameter of the "proxy_next_upstream" or
"fastcgi_next_upstream" directives.
*) Bugfix: ngx_http_perl_module did not work with inlined in the
configuration code, if it was not started with the "sub" word.
*) Bugfix: in the "post_action" directive.
author | Igor Sysoev <http://sysoev.ru> |
---|---|
date | Wed, 15 Mar 2006 00:00:00 +0300 |
parents | 3314be145cb9 |
children | 87699398f955 |
comparison
equal
deleted
inserted
replaced
171:d4717557d48d | 172:1b490fc19afa |
---|---|
690 | 690 |
691 | 691 |
692 static void | 692 static void |
693 ngx_http_perl_eval_anon_sub(pTHX_ ngx_str_t *handler, SV **sv) | 693 ngx_http_perl_eval_anon_sub(pTHX_ ngx_str_t *handler, SV **sv) |
694 { | 694 { |
695 if (ngx_strncmp(handler->data, "sub ", 4) == 0 | 695 u_char *p; |
696 || ngx_strncmp(handler->data, "use ", 4) == 0) | 696 |
697 for (p = handler->data; *p; p++) { | |
698 if (*p != ' ' && *p != '\t' && *p != CR && *p != LF) { | |
699 break; | |
700 } | |
701 } | |
702 | |
703 if (ngx_strncmp(p, "sub ", 4) == 0 | |
704 || ngx_strncmp(p, "use ", 4) == 0) | |
697 { | 705 { |
698 *sv = eval_pv((char *) handler->data, FALSE); | 706 *sv = eval_pv((char *) p, FALSE); |
699 | 707 |
700 return; | 708 return; |
701 } | 709 } |
702 | 710 |
703 *sv = NULL; | 711 *sv = NULL; |