Mercurial > hg > nginx

comparison src/http/modules/perl/nginx.xs @ 6960:1c5e5e5b008d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Perl: fixed delaying subrequests. Much like in limit_req, use the wev->delayed flag to ensure proper handling and interoperability with limit_rate.
author Maxim Dounin <mdounin@mdounin.ru>
date Sun, 02 Apr 2017 14:32:28 +0300
parents c6cc0b79a43d
children 0cdee26605f3
comparison
equal deleted inserted replaced
6959:7fcf209d40c8 6960:1c5e5e5b008d
999 999
1000 ctx = ngx_http_get_module_ctx(r, ngx_http_perl_module); 1000 ctx = ngx_http_get_module_ctx(r, ngx_http_perl_module);
1001 1001
1002 ctx->next = SvRV(ST(2)); 1002 ctx->next = SvRV(ST(2));
1003 1003
1004 r->connection->write->delayed = 1;
1004 ngx_add_timer(r->connection->write, sleep); 1005 ngx_add_timer(r->connection->write, sleep);
1005 1006
1006 r->write_event_handler = ngx_http_perl_sleep_handler; 1007 r->write_event_handler = ngx_http_perl_sleep_handler;
1007 r->main->count++; 1008 r->main->count++;
1008 1009