From a7217aed0e936d0d9a5246bc4abf796002074f2a Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 2 Oct 2008 19:49:33 +0000 Subject: [PATCH] improved error checking when the response is badly malformed svn: r11925 --- collects/planet/resolver.ss | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/planet/resolver.ss b/collects/planet/resolver.ss index 2725b9b052..5cdb3a166c 100644 --- a/collects/planet/resolver.ss +++ b/collects/planet/resolver.ss @@ -628,7 +628,7 @@ subdirectory. (min-hi . ,(get pkg-spec-minor-hi)) (path . ,(get pkg-spec-path))))) -;; get-http-response-code : header[from net/head] -> string +;; get-http-response-code : header[from net/head] -> string or #f ;; gets the HTTP response code in the given header (define (get-http-response-code header) (let ([parsed (regexp-match #rx"^HTTP/[^ ]* ([^ ]*)" header)]) @@ -656,7 +656,8 @@ subdirectory. [ip (get-impure-port target)] [head (purify-port ip)] [response-code/str (get-http-response-code head)] - [response-code (string->number response-code/str)]) + [response-code (and response-code/str + (string->number response-code/str))]) (define (abort msg) (close-input-port ip)