Mercurial > hg > nginx-quic
diff src/http/modules/perl/ngx_http_perl_module.c @ 651:39b7d7b33c91 release-0.3.47
nginx-0.3.47-RELEASE import
*) Feature: the "upstream" directive.
*) Change: now the "\" escape symbol in the "\"" and "\'" pairs in the
SSI command is always removed.
author | Igor Sysoev <igor@sysoev.ru> |
---|---|
date | Tue, 23 May 2006 14:54:58 +0000 |
parents | 1e720b0be7ec |
children | 7cbef16c71a1 |
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 @@ -399,6 +399,24 @@ ngx_http_perl_ssi(ngx_http_request_t *r, dTHXa(ctx->perl); +#if 0 + + /* the code is disabled to force the precompiled perl code using only */ + + ngx_http_perl_eval_anon_sub(aTHX_ handler, &sv); + + if (sv == &PL_sv_undef) { + ngx_log_error(NGX_LOG_ERR, r->connection->log, 0, + "eval_pv(\"%V\") failed", handler); + return NGX_ERROR; + } + + if (sv == NULL) { + sv = newSVpvn((char *) handler->data, handler->len); + } + +#endif + sv = newSVpvn((char *) handler->data, handler->len); rc = ngx_http_perl_call_handler(aTHX_ r, sv, ¶ms[NGX_HTTP_PERL_SSI_ARG],