Mercurial > hg > nginx-quic
view src/http/modules/perl/ngx_http_perl_module.h @ 872:1c4a5b3f9110
Axe several perl interpreter instances: they may be useful in currently
unsupported threaded environment, but now they complicate code:
*) perl_clone() requires at least duplicating nginx stash;
*) the multiplicity requires to re-evalute all precompiled subroutines
and nginx stash in new interpreter context.
author | Igor Sysoev <igor@sysoev.ru> |
---|---|
date | Sun, 26 Nov 2006 14:35:27 +0000 |
parents | f3fae36f262f |
children | 73c66ed9a9cd |
line wrap: on
line source
/* * Copyright (C) Igor Sysoev */ #ifndef _NGX_HTTP_PERL_MODULE_H_INCLUDED_ #define _NGX_HTTP_PERL_MODULE_H_INCLUDED_ #include <ngx_config.h> #include <ngx_core.h> #include <ngx_http.h> #include <nginx.h> #include <EXTERN.h> #include <perl.h> typedef ngx_http_request_t *nginx; typedef struct { ngx_str_t filename; ngx_str_t redirect_uri; ngx_str_t redirect_args; SV *next; ngx_uint_t done; /* unsigned done:1; */ #if (NGX_HTTP_SSI) ngx_http_ssi_ctx_t *ssi; #endif } ngx_http_perl_ctx_t; extern ngx_module_t ngx_http_perl_module; /* * workaround for "unused variable `Perl___notused'" warning * when building with perl 5.6.1 */ #ifndef PERL_IMPLICIT_CONTEXT #undef dTHXa #define dTHXa(a) #endif extern void boot_DynaLoader(pTHX_ CV* cv); void ngx_http_perl_handle_request(ngx_http_request_t *r); #endif /* _NGX_HTTP_PERL_MODULE_H_INCLUDED_ */