Read statusline until \r

diff --git a/bollux b/bollux
index 10b43d0..ab9e76b 100755 (executable)
--- a/bollux
+++ b/bollux
@@ -209,7 +209,7 @@ request() { # request [-s SERVER] URL
 # cf. gemini://gemini.circumlunar.space/docs/spec-spec.txt
 handle() { # handle URL < RESPONSE
        URL="$1"
-       while read -r head; do
+       while read -d $'\r' -r head; do
                break # wait to read the first line
        done
        code="$(awk '{print $1}' <<<"$head")"