rename $r->rflush to $r->flush

diff --git a/src/http/modules/perl/nginx.pm b/src/http/modules/perl/nginx.pm
index 25b2994f7658957fb3e2221ad652718df4bf4f02..3319c3fc5627c9705370edae53639f4af1b33571 100644 (file)
--- 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 421fa7e8e336c9baec78f75974fa738aa7bb366c..dd01f3b3cc02e74e1d54a7b6c8329063c637c1e0 100644 (file)
--- 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);