Oops, should have been part of te last commit.

1 files changed, 3 insertions, 2 deletions

diff --git a/mirror-checker.lua b/mirror-checker.lua
index e3c6120..074064c 100755
--- a/mirror-checker.lua
+++ b/mirror-checker.lua
@@ -217,11 +217,13 @@ checkHEAD = function (host, URL, r, retry)
         return
     end
     local PU = url.parse(URL, defaultURL)
+    local pu = url.parse(PU.scheme .. "://" .. host, defaultURL)
     D(PU.scheme .. " ://  " .. check .. " " .. host .. " -> " .. URL)
     if not testing(PU.scheme, host) then D("Not testing " .. PU.scheme .. " " .. host .. " -> " .. URL);  return end
     -- TODO - Perhaps we should try it anyway, and mark it as a warning if it DOES work?
     if "https" == PU.scheme and "deb.devuan.org" == host then D("Not testing " .. PU.scheme .. " " .. host .. " -> " .. URL .. " mirrors shouldn't have the correct cert.");  return end
-    local hd = {Host = host}
+    local hd = {}
+    if pu.host ~= PU.host then hd = {Host = host} end
     local htp = http;
     if PU.scheme == "https" then htp = https end
     -- NOTE - the docs for lua-sec say that redirect isn't supported is version 0.6, no idea if that means it ignores redirections like we want.
@@ -242,7 +244,6 @@ checkHEAD = function (host, URL, r, retry)
         end
         l = h.location
         if nil ~= l then
-            local pu = url.parse(l, defaultURL)
             if testing("Protocol") and (pu.scheme ~= PU.scheme) then
                 W("    protocol changed during redirect!  " .. check .. " " .. host .. " -> " .. URL .. " -> " .. l)
             end