Mercurial > hg > nginx-vendor-0-6
comparison src/http/modules/perl/ngx_http_perl_module.c @ 200:d2ae1c9f1fd3 NGINX_0_3_47
nginx 0.3.47
*) Feature: the "upstream" directive.
*) Change: now the "\" escape symbol in the "\"" and "\'" pairs in the
SSI command is always removed.
author | Igor Sysoev <http://sysoev.ru> |
---|---|
date | Tue, 23 May 2006 00:00:00 +0400 |
parents | e6da4931e0e0 |
children | ca5f86d94316 |
comparison
equal
deleted
inserted
replaced
199:869664706c09 | 200:d2ae1c9f1fd3 |
---|---|
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, ¶ms[NGX_HTTP_PERL_SSI_ARG], | 422 rc = ngx_http_perl_call_handler(aTHX_ r, sv, ¶ms[NGX_HTTP_PERL_SSI_ARG], |
405 handler, NULL); | 423 handler, NULL); |
406 | 424 |