commit df88a81783ac0ef535b93d6947851a617c864dcd
author Igor Sysoev <igor@sysoev.ru> Wed Dec 13 12:30:57 2006 +0000
committer Igor Sysoev <igor@sysoev.ru> Wed Dec 13 12:30:57 2006 +0000
tree 660bdaaa5ca20377b48273cf4a6a76f609ea9267
parent 65b8a197b9bef89d8002b03471a0fd236ea84eda

fix ngx_http_perl_sleep_handler()

src/http/modules/perl/ngx_http_perl_module.c

diff --git a/src/http/modules/perl/ngx_http_perl_module.c b/src/http/modules/perl/ngx_http_perl_module.c
index 94ff54f..fb16420 100644
--- a/src/http/modules/perl/ngx_http_perl_module.c
+++ b/src/http/modules/perl/ngx_http_perl_module.c
@@ -273,10 +273,22 @@
 static void
 ngx_http_perl_sleep_handler(ngx_http_request_t *r)
 {
+    ngx_event_t  *wev;
+
     ngx_log_debug0(NGX_LOG_DEBUG_HTTP, r->connection->log, 0,
                    "perl sleep handler");
 
-    ngx_http_perl_handle_request(r);
+    wev = r->connection->write;
+
+    if (wev->timedout) {
+        wev->timedout = 0;
+        ngx_http_perl_handle_request(r);
+        return;
+    }
+
+    if (ngx_handle_write_event(wev, 0) == NGX_ERROR) {
+        ngx_http_finalize_request(r, NGX_HTTP_INTERNAL_SERVER_ERROR);
+    }
 }