X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fgetter%2FclientHTTP.ml;h=2444bded35afc1eab918c5a118b477f4a8be5bd4;hb=fcd8c85d7834c7f35b1d04c55c87dfa9a0d96438;hp=7d57c0b575ef3669ac260a707311defb257f2156;hpb=e934b8dc345d703a92af980ce51c7a07532724fe;p=helm.git

diff --git a/helm/ocaml/getter/clientHTTP.ml b/helm/ocaml/getter/clientHTTP.ml
index 7d57c0b57..2444bded3 100644
--- a/helm/ocaml/getter/clientHTTP.ml
+++ b/helm/ocaml/getter/clientHTTP.ml
@@ -54,9 +54,11 @@ let get_and_save_to_tmp uri =
    done ;
    cs
  in
-  let user = try Sys.getenv "USER" ^ "_" with Not_found -> "" in 
-     (* FG: Unix.getlogin () should be used instead of the above *)
-  let tmp_file = Configuration.tmp_dir ^ "/" ^ user ^ (flat_string uri ".-=:;!?/&" '_') in
+  let user = try Unix.getlogin () with _ -> "" in
+  let tmp_file =
+    Filename.temp_file (user ^ flat_string uri ".-=:;!?/&" '_') ""
+  in
   get_and_save uri tmp_file ;
   tmp_file
 ;;
+