Mercurial > hg > nginx
comparison src/http/modules/perl/ngx_http_perl_module.c @ 3574:724e5cd44164 stable-0.7
merge r3318, r3449:
perl related fixes:
*) do not log error if $r->variable was not found
*) delete ngx_http_perl_cleanup_t unused since r909
author | Igor Sysoev <igor@sysoev.ru> |
---|---|
date | Mon, 07 Jun 2010 08:51:48 +0000 |
parents | f419516d8e6e |
children | 8152369f7037 |
comparison
equal
deleted
inserted
replaced
3573:5d9ff79eab6f | 3574:724e5cd44164 |
---|---|
26 | 26 |
27 typedef struct { | 27 typedef struct { |
28 SV *sub; | 28 SV *sub; |
29 ngx_str_t handler; | 29 ngx_str_t handler; |
30 } ngx_http_perl_variable_t; | 30 } ngx_http_perl_variable_t; |
31 | |
32 | |
33 typedef struct { | |
34 SV *sv; | |
35 PerlInterpreter *perl; | |
36 } ngx_http_perl_cleanup_t; | |
37 | 31 |
38 | 32 |
39 #if (NGX_HTTP_SSI) | 33 #if (NGX_HTTP_SSI) |
40 static ngx_int_t ngx_http_perl_ssi(ngx_http_request_t *r, | 34 static ngx_int_t ngx_http_perl_ssi(ngx_http_request_t *r, |
41 ngx_http_ssi_ctx_t *ssi_ctx, ngx_str_t **params); | 35 ngx_http_ssi_ctx_t *ssi_ctx, ngx_str_t **params); |