# HG changeset patch
# User Igor Sysoev <igor@sysoev.ru>
# Date 1165957068 0
# Node ID f01e6664f9be5e489c4701a0912d8384a4c7b39a
# Parent  82adc19b4b4d3eb9700ec84683aa63db92e95fb4
fix $r->has_request_body()

diff -r 82adc19b4b4d -r f01e6664f9be src/http/modules/perl/nginx.xs
--- a/src/http/modules/perl/nginx.xs	Tue Dec 12 20:06:04 2006 +0000
+++ b/src/http/modules/perl/nginx.xs	Tue Dec 12 20:57:48 2006 +0000
@@ -334,7 +334,6 @@
 
     dXSTARG;
     ngx_http_request_t   *r;
-    SV                   *next;
     ngx_http_perl_ctx_t  *ctx;
 
     ngx_http_perl_set_request(r);
@@ -343,10 +342,8 @@
         XSRETURN_UNDEF;
     }
 
-    next = ST(1);
-
     ctx = ngx_http_get_module_ctx(r, ngx_http_perl_module);
-    ctx->next = next;
+    ctx->next = SvRV(ST(1));
 
     r->request_body_in_single_buf = 1;
     r->request_body_in_persistent_file = 1;