Mercurial > hg > nginx
changeset 1178:a77f6980de50
rename $r->rflush to $r->flush
author | Igor Sysoev <igor@sysoev.ru> |
---|---|
date | Sat, 21 Apr 2007 07:43:23 +0000 |
parents | ff0195dfbe0c |
children | 6e2216ad2c87 |
files | src/http/modules/perl/nginx.pm src/http/modules/perl/nginx.xs |
diffstat | 2 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/http/modules/perl/nginx.pm Thu Apr 19 18:23:54 2007 +0000 +++ b/src/http/modules/perl/nginx.pm Sat Apr 21 07:43:23 2007 +0000 @@ -92,6 +92,13 @@ use constant HTTP_INSUFFICIENT_STORAGE => 507; +sub rflush { + my $r = shift; + + $r->flush; +} + + 1; __END__
--- a/src/http/modules/perl/nginx.xs Thu Apr 19 18:23:54 2007 +0000 +++ b/src/http/modules/perl/nginx.xs Sat Apr 21 07:43:23 2007 +0000 @@ -681,7 +681,7 @@ void -rflush(r) +flush(r) CODE: ngx_http_request_t *r; @@ -696,7 +696,7 @@ 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);