+ ---------------------------------
+ -- Canonical_Case_Env_Var_Name --
+ ---------------------------------
+
+ procedure Canonical_Case_Env_Var_Name (S : in out String) is
+ begin
+ if not Env_Vars_Case_Sensitive then
+ To_Lower (S);
+ end if;
+ end Canonical_Case_Env_Var_Name;
+