- added *.o *.a *.deb

[helm.git] / helm / http_getter / http_getter_env.ml

diff --git a/helm/http_getter/http_getter_env.ml b/helm/http_getter/http_getter_env.ml
index 377d305f4061570eca45cbf50bb4370bbd79d5f6..f9c789eff50e6d493f34a5bc8757b9c8abad173d 100644 (file)
--- a/helm/http_getter/http_getter_env.ml
+++ b/helm/http_getter/http_getter_env.ml
@@ -1,5 +1,5 @@
 (*
- *  Copyright (C) 2000, HELM Team.
+ *  Copyright (C) 2003, HELM Team.
  *
  *  This file is part of HELM, an Hypertextual, Electronic
  *  Library of Mathematics, developed at the Computer Science
@@ -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"