diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/http/modules/perl/nginx.pm | 7 | ||||
| -rw-r--r-- | src/http/modules/perl/nginx.xs | 4 |
2 files changed, 9 insertions, 2 deletions
diff --git a/src/http/modules/perl/nginx.pm b/src/http/modules/perl/nginx.pm index 25b2994f7..3319c3fc5 100644 --- a/src/http/modules/perl/nginx.pm +++ b/src/http/modules/perl/nginx.pm @@ -92,6 +92,13 @@ use constant HTTP_GATEWAY_TIME_OUT => 504; use constant HTTP_INSUFFICIENT_STORAGE => 507; +sub rflush { + my $r = shift; + + $r->flush; +} + + 1; __END__ diff --git a/src/http/modules/perl/nginx.xs b/src/http/modules/perl/nginx.xs index 421fa7e8e..dd01f3b3c 100644 --- a/src/http/modules/perl/nginx.xs +++ b/src/http/modules/perl/nginx.xs @@ -681,7 +681,7 @@ sendfile(r, filename, offset = -1, bytes = 0) void -rflush(r) +flush(r) CODE: ngx_http_request_t *r; @@ -696,7 +696,7 @@ rflush(r) b->flush = 1; - ngx_log_debug0(NGX_LOG_DEBUG_HTTP, r->connection->log, 0, "$r->rflush"); + ngx_log_debug0(NGX_LOG_DEBUG_HTTP, r->connection->log, 0, "$r->flush"); (void) ngx_http_perl_output(r, b); |