fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2009-05-16 08:26 UTC+0200 Viktor Szakats (harbour.01 syenar hu)

Browse Source 
* source/rtl/lang.c
    % Minor opt.
This commit is contained in:
Viktor Szakats
2009-05-16 06:26:14 +00:00
parent 5c7d10df08
commit d1adfe52db
2 changed files with 10 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -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

17
harbour/source/rtl/lang.c
View File

@@ -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 )