Mercurial > hg > nginx-ranges

comparison src/http/modules/perl/ngx_http_perl_module.c @ 172:1b490fc19afa NGINX_0_3_33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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;