bugfix: handler was called twice in a row when in loop mode

zzzcpan · Apr 3, 2012 · c872faf · c872faf
1 parent 4d0299d
commit c872faf
Showing 1 changed file with 4 additions and 2 deletions.
diff --git 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: