$r->allow_ranges
diff --git a/src/http/modules/perl/nginx.xs b/src/http/modules/perl/nginx.xs
index f65bbf0..d337edb 100644
--- a/src/http/modules/perl/nginx.xs
+++ b/src/http/modules/perl/nginx.xs
@@ -719,6 +719,19 @@
 
 
 void
+allow_ranges(r)
+    CODE:
+
+    ngx_http_request_t  *r;
+
+    ngx_http_perl_set_request(r);
+
+    r->allow_ranges = 1;
+
+    XSRETURN_EMPTY;
+
+
+void
 unescape(r, text, type = 0)
     CODE: