From c872faff13bbb24fd757cf369c6862c2f3a1e94b Mon Sep 17 00:00:00 2001
From: Alexandr Gomoliako <zzz@zzz.org.ua>
Date: Wed, 4 Apr 2012 00:58:54 +0300
Subject: [PATCH] bugfix: handler was called twice in a row when in loop mode

---
 src/http/modules/perl/ngx_http_perl_module.c | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/http/modules/perl/ngx_http_perl_module.c b/src/http/modules/perl/ngx_http_perl_module.c
index 00397f4..10035e9 100644
--- a/src/http/modules/perl/ngx_http_perl_module.c
+++ b/src/http/modules/perl/ngx_http_perl_module.c
@@ -2784,9 +2784,10 @@ ngx_perl_read_handler(ngx_event_t *ev)
             ngx_perl_close(c);
             break;
         case NGX_PERL_READ:
-            ngx_perl_read(c);
             if (c->read->ready) {
                 goto AGAIN;
+            } else {
+                ngx_perl_read(c);
             }
             break;
         case NGX_PERL_WRITE:
@@ -2937,9 +2938,10 @@ ngx_perl_write_handler(ngx_event_t *ev)
             ngx_perl_read(c);
             break;
         case NGX_PERL_WRITE:
-            ngx_perl_write(c);
             if (c->write->ready) {
                 goto AGAIN;
+            } else {
+                ngx_perl_write(c);
             }
             break;
         case NGX_PERL_SSL_HANDSHAKE: