From 65b8a197b9bef89d8002b03471a0fd236ea84eda Mon Sep 17 00:00:00 2001
From: Igor Sysoev <igor@sysoev.ru>
Date: Tue, 12 Dec 2006 22:06:03 +0000
Subject: $r->variable() supports perl only variables

---
 src/http/modules/perl/ngx_http_perl_module.h | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'src/http/modules/perl/ngx_http_perl_module.h')

diff --git a/src/http/modules/perl/ngx_http_perl_module.h b/src/http/modules/perl/ngx_http_perl_module.h
index 59954224d..6ae63e820 100644
--- a/src/http/modules/perl/ngx_http_perl_module.h
+++ b/src/http/modules/perl/ngx_http_perl_module.h
@@ -29,12 +29,21 @@ typedef struct {
 
     ngx_uint_t                done;   /* unsigned  done:1; */
 
+    ngx_array_t              *variables;  /* array of ngx_http_perl_var_t */
+
 #if (NGX_HTTP_SSI)
     ngx_http_ssi_ctx_t       *ssi;
 #endif
 } ngx_http_perl_ctx_t;
 
 
+typedef struct {
+    ngx_uint_t    hash;
+    ngx_str_t     name;
+    ngx_str_t     value;
+} ngx_http_perl_var_t;
+
+
 extern ngx_module_t  ngx_http_perl_module;
 
 
-- 
cgit