From 3d91b6b77f998bc34b65dc621a194f684fecc3b0 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 27 Aug 2013 13:10:22 -0600
Subject: [PATCH] raco pkg: add a missing `close-input-port' on network
 connection

---
 racket/collects/pkg/util.rkt | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/racket/collects/pkg/util.rkt b/racket/collects/pkg/util.rkt
index 6f594d1a76..65e8614282 100644
--- a/racket/collects/pkg/util.rkt
+++ b/racket/collects/pkg/util.rkt
@@ -38,7 +38,9 @@
                                                 #:redirections 25
                                                 #:status? #t))
   (and (string=? "200" (substring hs 9 12))
-       (fun ip)))
+       (begin0
+        (fun ip)
+        (close-input-port ip))))
 
 (define (url-path/no-slash url)
   (define p (url-path url))