]> matita.cs.unibo.it Git - helm.git/commitdiff
- bugfix: removed trailing "/" from 'my_own_url'
authorStefano Zacchiroli <zack@upsilon.cc>
Thu, 26 Dec 2002 15:50:47 +0000 (15:50 +0000)
committerStefano Zacchiroli <zack@upsilon.cc>
Thu, 26 Dec 2002 15:50:47 +0000 (15:50 +0000)
helm/http_getter/http_getter_env.ml

index 377d305f4061570eca45cbf50bb4370bbd79d5f6..acbc178538d66c717292347777b36734e1903608 100644 (file)
@@ -100,7 +100,7 @@ let host =
   Pcre.replace ~pat:"\n+$" (Buffer.contents buf)
 let my_own_url =
   sprintf
-    "http://%s%s/"
+    "http://%s%s" (* without trailing '/' *)
     host
     (if port = 80 then "" else (sprintf ":%d" port))
 let dtd_base_url = safe_getenv "HTTP_GETTER_DTD_BASE_URL"