Mercurial > hg > nginx

comparison src/http/modules/perl/ngx_http_perl_module.c @ 651:39b7d7b33c91 release-0.3.47

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
650:d865681780b6 651:39b7d7b33c91
397 397
398 { 398 {
399 399
400 dTHXa(ctx->perl); 400 dTHXa(ctx->perl);
401 401
402 #if 0
403
404 /* the code is disabled to force the precompiled perl code using only */
405
406 ngx_http_perl_eval_anon_sub(aTHX_ handler, &sv);
407
408 if (sv == &PL_sv_undef) {
409 ngx_log_error(NGX_LOG_ERR, r->connection->log, 0,
410 "eval_pv(\"%V\") failed", handler);
411 return NGX_ERROR;
412 }
413
414 if (sv == NULL) {
415 sv = newSVpvn((char *) handler->data, handler->len);
416 }
417
418 #endif
419
402 sv = newSVpvn((char *) handler->data, handler->len); 420 sv = newSVpvn((char *) handler->data, handler->len);
403 421
404 rc = ngx_http_perl_call_handler(aTHX_ r, sv, &params[NGX_HTTP_PERL_SSI_ARG], 422 rc = ngx_http_perl_call_handler(aTHX_ r, sv, &params[NGX_HTTP_PERL_SSI_ARG],
405 handler, NULL); 423 handler, NULL);
406 424