From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Wed, 23 May 2007 14:07:24 +0000 (+0000)
Subject: changed the way environment variable can interfere with the registry.
X-Git-Tag: make_still_working~6320
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;ds=sidebyside;h=9da16ebf1736b345ef6f3c4d9e0c107ed049ba4e;p=helm.git

changed the way environment variable can interfere with the registry.
---

diff --git a/helm/software/components/registry/helm_registry.ml b/helm/software/components/registry/helm_registry.ml
index 3753232b6..64277415f 100644
--- a/helm/software/components/registry/helm_registry.ml
+++ b/helm/software/components/registry/helm_registry.ml
@@ -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
   | [] ->