Mercurial > hg > nginx-quic
comparison src/http/modules/perl/ngx_http_perl_module.c @ 623:0216fd1471f3 release-0.3.33
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; |