From 6973ffde7848400ac919acfe88500be73d11df28 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Fri, 5 Jan 2007 00:44:27 +0000 Subject: [PATCH] gurnell svn: r5224 --- collects/web-server/private/request.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/web-server/private/request.ss b/collects/web-server/private/request.ss index 423400d85e..2409947d12 100644 --- a/collects/web-server/private/request.ss +++ b/collects/web-server/private/request.ss @@ -28,8 +28,8 @@ (define _ (match (headers-assq* #"Content-Length" headers) [(struct header (f v)) - ; Give it one second per byte - (adjust-connection-timeout! conn (string->number (bytes->string/utf-8 v)))] + ; Give it one second per byte (with 5 second minimum... a bit arbitrary) + (adjust-connection-timeout! conn (max 5 (string->number (bytes->string/utf-8 v))))] [#f (void)])) (define-values (host-ip client-ip)