Mercurial > hg > nginx

comparison src/http/modules/perl/ngx_http_perl_module.c @ 623:0216fd1471f3 release-0.3.33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
nginx-0.3.33-RELEASE import *) 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 <igor@sysoev.ru>
date Wed, 15 Mar 2006 09:53:04 +0000
parents 7a16e281c01f
children 65bf042c0b4f
comparison
equal deleted inserted replaced
622:b088081fe8c3 623:0216fd1471f3
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;