From: Igor Sysoev <igor@sysoev.ru>
Date: Mon, 6 Aug 2007 15:38:08 +0000 (+0000)
Subject: $r->discard_request_body
X-Git-Tag: release-0.6.7~21
X-Git-Url: http://git.kaiwu.me/%7B@url%7D?a=commitdiff_plain;h=03afa34c9601f115336e398da20d434c90930cb8;p=nginx.git

$r->discard_request_body
---

diff --git a/src/http/modules/perl/nginx.xs b/src/http/modules/perl/nginx.xs
index dd01f3b3c..f9355b674 100644
--- a/src/http/modules/perl/nginx.xs
+++ b/src/http/modules/perl/nginx.xs
@@ -424,6 +424,17 @@ request_body_file(r)
     ST(0) = TARG;
 
 
+void
+discard_request_body(r)
+    CODE:
+
+    ngx_http_request_t  *r;
+
+    ngx_http_perl_set_request(r);
+
+    ngx_http_discard_request_body(r);
+
+
 void
 header_out(r, key, value)
     CODE: