Mercurial > hg > nginx

changeset 3574:724e5cd44164 stable-0.7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 5d9ff79eab6f
children fe084c435dc3
files src/http/modules/perl/nginx.xs src/http/modules/perl/ngx_http_perl_module.c
diffstat 2 files changed, 0 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/src/http/modules/perl/nginx.xs
+++ b/src/http/modules/perl/nginx.xs
@@ -901,9 +901,6 @@ variable(r, name, value = NULL)
             XSRETURN_UNDEF;
         }
 
-        ngx_log_error(NGX_LOG_ERR, r->connection->log, 0,
-                      "variable \"%V\" not found", &var);
-
         XSRETURN_UNDEF;
     }
 
--- a/src/http/modules/perl/ngx_http_perl_module.c
+++ b/src/http/modules/perl/ngx_http_perl_module.c
@@ -30,12 +30,6 @@ typedef struct {
 } ngx_http_perl_variable_t;
 
 
-typedef struct {
-    SV                *sv;
-    PerlInterpreter   *perl;
-} ngx_http_perl_cleanup_t;
-
-
 #if (NGX_HTTP_SSI)
 static ngx_int_t ngx_http_perl_ssi(ngx_http_request_t *r,
     ngx_http_ssi_ctx_t *ssi_ctx, ngx_str_t **params);