Check URI scheme when redirecting.

fukamachi · Aug 4, 2015 · 8da3d70 · 8da3d70
1 parent 25c5f9a
commit 8da3d70
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/backend/usocket.lisp b/src/backend/usocket.lisp
@@ -513,7 +513,9 @@
 
                  (let ((location-uri (quri:uri (gethash "location" response-headers))))
                    (if (or (null (uri-host location-uri))
-                           (and (string= (uri-host location-uri)
+                           (and (string= (uri-scheme location-uri)
+                                         (uri-scheme uri))
+                                (string= (uri-host location-uri)
                                          (uri-host uri))
                                 (eql (uri-port location-uri)
                                      (uri-port uri))))