From: Stefano Zacchiroli <zack@upsilon.cc>
Date: Thu, 26 Dec 2002 15:50:47 +0000 (+0000)
Subject: - bugfix: removed trailing "/" from 'my_own_url'
X-Git-Tag: v0_3_99~116
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=ac68e73fbbb596dfedd9eb4166952556bdbac16b;p=helm.git

- bugfix: removed trailing "/" from 'my_own_url'
---

diff --git a/helm/http_getter/http_getter_env.ml b/helm/http_getter/http_getter_env.ml
index 377d305f4..acbc17853 100644
--- a/helm/http_getter/http_getter_env.ml
+++ b/helm/http_getter/http_getter_env.ml
@@ -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"