From: Maxim Dounin <mdounin@mdounin.ru>
Date: Tue, 18 Aug 2015 13:26:18 +0000 (+0300)
Subject: Perl: prototyping behavior explicitly specified.
X-Git-Tag: release-1.9.4~1
X-Git-Url: http://www.kaiwu.me/postgresql/commit/?a=commitdiff_plain;h=2e004237c52b6281514571714bf0ba0b23452846;p=nginx.git

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
index ae8584502..6716620af 100644
--- 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 *r, ngx_buf_t *b)
 MODULE = nginx    PACKAGE = nginx
 
 
+PROTOTYPES: DISABLE
+
+
 void
 status(r, code)
     CODE: