From d1adfe52dbe4a59a97c5c9283d192f749eaea0a8 Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Sat, 16 May 2009 06:26:14 +0000
Subject: [PATCH] 2009-05-16 08:26 UTC+0200 Viktor Szakats (harbour.01 syenar
 hu)   * source/rtl/lang.c     % Minor opt.

---
 harbour/ChangeLog         |  4 ++++
 harbour/source/rtl/lang.c | 17 ++++++-----------
 2 files changed, 10 insertions(+), 11 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 3585a6a7d2..18279ffa50 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,10 @@
    past entries belonging to these authors: Viktor Szakats.
 */
 
+2009-05-16 08:26 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
+  * source/rtl/lang.c
+    % Minor opt.
+
 2009-05-16 08:05 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
   * source/rtl/tget.prg
     ! Fixed recent regression causing negative number to be
diff --git a/harbour/source/rtl/lang.c b/harbour/source/rtl/lang.c
index c18ca876ed..7ed907c46e 100644
--- a/harbour/source/rtl/lang.c
+++ b/harbour/source/rtl/lang.c
@@ -56,22 +56,17 @@
 
 HB_FUNC( HB_USERLANG )
 {
-   char * ietf = NULL;
-   BOOL bFree = FALSE;
+   char * ietf;
+   BOOL bFree;
 
+   ietf = hb_getenv( "LC_ALL" );
    if( ! ietf )
    {
-      bFree = TRUE;
-      ietf = hb_getenv( "LC_ALL" );
+      ietf = hb_getenv( "LC_MESSAGES" );
       if( ! ietf )
-      {
-         ietf = hb_getenv( "LC_MESSAGES" );
-         if( ! ietf )
-            ietf = hb_getenv( "LANG" );
-      }
-      if( ! ietf )
-         bFree = FALSE;
+         ietf = hb_getenv( "LANG" );
    }
+   bFree = ( ietf != NULL );
 
 #if defined(HB_OS_WIN)
    if( ! ietf )