commit fab5acdd281c87bafded9f4fa97e494ce944098c
author Igor Sysoev <igor@sysoev.ru> Sat Nov 25 23:27:06 2006 +0000
committer Igor Sysoev <igor@sysoev.ru> Sat Nov 25 23:27:06 2006 +0000
tree 1c22dd9a3ab504eee8c6562403ef1ffea1fc147e
parent b5602b113ab5902035a54d5e06e8511b6f5380a2

fix recursive perl_set variable call

src/http/modules/perl/ngx_http_perl_module.c

diff --git a/src/http/modules/perl/ngx_http_perl_module.c b/src/http/modules/perl/ngx_http_perl_module.c
index 53b2f49..a5f27dc 100644
--- a/src/http/modules/perl/ngx_http_perl_module.c
+++ b/src/http/modules/perl/ngx_http_perl_module.c
@@ -300,6 +300,7 @@
     ngx_http_perl_variable_t *pv = (ngx_http_perl_variable_t *) data;
 
     ngx_int_t                   rc;
+    ngx_uint_t                  recursive;
     ngx_str_t                   value;
     ngx_http_perl_ctx_t        *ctx;
     ngx_http_perl_main_conf_t  *pmcf;
@@ -316,14 +317,21 @@
         }
 
         ngx_http_set_ctx(r, ctx, ngx_http_perl_module);
-    }
 
-    pmcf = ngx_http_get_module_main_conf(r, ngx_http_perl_module);
+        pmcf = ngx_http_get_module_main_conf(r, ngx_http_perl_module);
 
-    rc = ngx_http_perl_get_interpreter(pmcf, &ctx->perl, r->connection->log);
+        rc = ngx_http_perl_get_interpreter(pmcf, &ctx->perl,
+                                           r->connection->log);
 
-    if (rc != NGX_OK) {
-        return rc;
+        if (rc != NGX_OK) {
+            return rc;
+        }
+
+        recursive = 0;
+
+    } else {
+        pmcf = NULL;
+        recursive = 1;
     }
 
     value.data = NULL;
@@ -337,7 +345,9 @@
 
     }
 
-    ngx_http_perl_free_interpreter(pmcf, ctx->perl);
+    if (recursive == 0) {
+        ngx_http_perl_free_interpreter(pmcf, ctx->perl);
+    }
 
     if (value.data) {
         v->len = value.len;