# HG changeset patch
# User Igor Sysoev <igor@sysoev.ru>
# Date 1164497254 0
# Node ID a980f66c04fb09e1c698472c206e98e42405ab57
# Parent  783c198b4dedb8d3f74b55bc9a2bfb56fa1829db
add debug logging

diff --git a/src/http/modules/perl/ngx_http_perl_module.c b/src/http/modules/perl/ngx_http_perl_module.c
--- a/src/http/modules/perl/ngx_http_perl_module.c
+++ b/src/http/modules/perl/ngx_http_perl_module.c
@@ -363,6 +363,9 @@ ngx_http_perl_variable(ngx_http_request_
     ctx->filename.data = NULL;
     ctx->redirect_uri.len = 0;
 
+    ngx_log_debug0(NGX_LOG_DEBUG_HTTP, r->connection->log, 0,
+                   "perl variable done");
+
     return rc;
 }
 
@@ -443,6 +446,8 @@ ngx_http_perl_ssi(ngx_http_request_t *r,
     ctx->redirect_uri.len = 0;
     ctx->ssi = NULL;
 
+    ngx_log_debug0(NGX_LOG_DEBUG_HTTP, r->connection->log, 0, "perl ssi done");
+
     return rc;
 }