From 71b92e97d0be882c78c531fa42d76d3f1822bdc4 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Fri, 22 Sep 2006 18:29:46 +0000 Subject: [PATCH] up svn: r4417 --- collects/web-server/private/request.ss | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/collects/web-server/private/request.ss b/collects/web-server/private/request.ss index 54218ae633..d522ba9f04 100644 --- a/collects/web-server/private/request.ss +++ b/collects/web-server/private/request.ss @@ -226,6 +226,8 @@ (let skip-preamble () (define line (read-bytes-line in 'return-linefeed)) (cond + [(eof-object? line) + (network-error 'read-mime-multipart "Port prematurely closed.")] [(bytes=? line start-boundary) (let read-parts () (define headers (read-headers in)) @@ -239,6 +241,8 @@ headers contents)))]) (define line (read-bytes-line in 'return-linefeed)) (cond + [(eof-object? line) + (network-error 'read-mime-multipart "Port prematurely closed.")] [(bytes=? line start-boundary) (more-k empty)] [(bytes=? line end-boundary)