Commit b6ef94f49b2073d21a511eaadf11c5ef076f9f87 - nginx

$r->status Igor Sysoev 15 years ago

1 changed file(s) with 16 addition(s) and 0 deletion(s). Raw diff Collapse all Expand all

+16

-0

src/http/modules/perl/nginx.xs less more

90	90
91	91
92	92	MODULE = nginx PACKAGE = nginx
	93
	94
	95	void
	96	status(r, code)
	97	CODE:
	98
	99	ngx_http_request_t *r;
	100
	101	ngx_http_perl_set_request(r);
	102
	103	r->headers_out.status = SvIV(ST(1));
	104
	105	ngx_log_debug1(NGX_LOG_DEBUG_HTTP, r->connection->log, 0,
	106	"perl status: %d", r->headers_out.status);
	107
	108	XSRETURN_UNDEF;
93	109
94	110
95	111	void