From 77d78e7476f2ce189733c9ac6105f05f379d2ae2 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Fri, 11 Nov 2005 07:15:01 +0000
Subject: [PATCH] fixed 2.0.0 compilation: use GetEnvironmentVariable from
 SysUtils (issue #1419)

git-svn-id: trunk@8128 -
---
 lcl/translations.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lcl/translations.pas b/lcl/translations.pas
index 76db109c9f..bce8aaca5e 100644
--- a/lcl/translations.pas
+++ b/lcl/translations.pas
@@ -108,13 +108,13 @@ end;
 
 procedure GetLanguageIDs(var Lang, FallbackLang: string);
 begin
-  lang := GetEnv('LC_ALL');
+  lang := GetEnvironmentVariable('LC_ALL');
   if Length(lang) = 0 then
   begin
-    lang := GetEnv('LC_MESSAGES');
+    lang := GetEnvironmentVariable('LC_MESSAGES');
     if Length(lang) = 0 then
     begin
-      lang := GetEnv('LANG');
+      lang := GetEnvironmentVariable('LANG');
       if Length(lang) = 0 then
         exit;   // no language defined via environment variables
     end;