# HG changeset patch
# User Maxim Dounin <mdounin@mdounin.ru>
# Date 1439904378 -10800
# Node ID c6cc0b79a43df5a624a39e619501538adbdb39ae
# Parent  5f2a0739da19cae467e30b572a6c668ecc49d366
Perl: prototyping behavior explicitly specified.

When prototyping behavior is not explicitly specified, xsubpp emits
a message to stderr asking to do so (see ticket #608).

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
@@ -98,6 +98,9 @@ ngx_http_perl_output(ngx_http_request_t 
 MODULE = nginx    PACKAGE = nginx
 
 
+PROTOTYPES: DISABLE
+
+
 void
 status(r, code)
     CODE: