]> matita.cs.unibo.it Git - helm.git/commitdiff
changed the way environment variable can interfere with the registry.
authorEnrico Tassi <enrico.tassi@inria.fr>
Wed, 23 May 2007 14:07:24 +0000 (14:07 +0000)
committerEnrico Tassi <enrico.tassi@inria.fr>
Wed, 23 May 2007 14:07:24 +0000 (14:07 +0000)
helm/software/components/registry/helm_registry.ml

index 3753232b6a01d1da8f00f2f9a1044d7aebda1d95..64277415f7186984e929326c11bd6ef087c6d210 100644 (file)
@@ -133,7 +133,7 @@ let set' ?(replace=false) registry ~key ~value =
 
 let unset registry = Hashtbl.remove registry
 
-let env_var_of_key = Str.global_replace dot_rex "__"
+let env_var_of_key s = String.uppercase (Str.global_replace dot_rex "_" s)
 
 let singleton = function
   | [] ->