rename $r->rflush to $r->flush
diff --git a/src/http/modules/perl/nginx.pm b/src/http/modules/perl/nginx.pm
index 25b2994..3319c3f 100644
--- a/src/http/modules/perl/nginx.pm
+++ b/src/http/modules/perl/nginx.pm
@@ -92,6 +92,13 @@
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 421fa7e..dd01f3b 100644
--- a/src/http/modules/perl/nginx.xs
+++ b/src/http/modules/perl/nginx.xs
@@ -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);