the XML nor in the mangled name
setting something like:
<key name="foo">$(HOME)</key>
now works as expected
let values = (* resulting value *)
match registry_values, env_value with
| _, Some env -> [env]
let values = (* resulting value *)
match registry_values, env_value with
| _, Some env -> [env]
- | [], None -> raise (Key_not_found key)
+ | [], None ->
+ (try
+ [ Sys.getenv key ]
+ with Not_found -> raise (Key_not_found key))
| values, None -> values
in
List.map (interpolate (key :: stack)) values
| values, None -> values
in
List.map (interpolate (key :: stack)) values