# HG changeset patch
# User Igor Sysoev <igor@sysoev.ru>
# Date 1186414688 0
# Node ID 7dbdf47cdcbaa94ae972d9444f4c72c725312bcf
# Parent  cc114c85be0f50007a749cd17eb28d74cb6834ae
$r->discard_request_body

diff --git a/src/http/modules/perl/nginx.xs b/src/http/modules/perl/nginx.xs
--- a/src/http/modules/perl/nginx.xs
+++ b/src/http/modules/perl/nginx.xs
@@ -425,6 +425,17 @@ request_body_file(r)
 
 
 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: