From 6e495cb274f05fd37c85d70701613a7f117bcd49 Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Sat, 20 Jun 2009 18:11:03 +0000
Subject: [PATCH] 2009-06-20 20:10 UTC+0200 Viktor Szakats (harbour.01
 syenar.hu)   * source/rtl/mlcfunc.c     ! Fixed after prev optimization.
 (some optimizations       were kept, but with no change of functionality)

---
 harbour/ChangeLog            |  5 +++++
 harbour/source/rtl/mlcfunc.c | 16 +++++++++-------
 2 files changed, 14 insertions(+), 7 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index a4a060ae91..5e3609c2ee 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,11 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2009-06-20 20:10 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+  * source/rtl/mlcfunc.c
+    ! Fixed after prev optimization. (some optimizations
+      were kept, but with no change of functionality)
+
 2009-06-20 17:25 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * utils/hbmk2/hbmk2.prg
     + Added experimental filename escaping for *nix systems.
diff --git a/harbour/source/rtl/mlcfunc.c b/harbour/source/rtl/mlcfunc.c
index 50322d2c37..65bdc49fc4 100644
--- a/harbour/source/rtl/mlcfunc.c
+++ b/harbour/source/rtl/mlcfunc.c
@@ -163,14 +163,16 @@ static PHB_EOL_INFO hb_mlGetEOLs( int iParam, int * piEOLs )
          Clipper will ignore these parameters and use CRLF EOL hard
          coded. [vszakats] */
 #ifndef HB_C52_STRICT /* HB_EXTENSION */
-   ULONG ulLen = hb_parclen( iParam );
-
-   if( ulLen > 0 )
+   if( HB_ISCHAR( iParam ) )
    {
-      pEOLs = ( PHB_EOL_INFO ) hb_xgrab( sizeof( HB_EOL_INFO ) );
-      pEOLs->szEOL = hb_parc( iParam );
-      pEOLs->ulLen = ulLen;
-      iEOLs = 1;
+      ULONG ulLen = hb_parclen( iParam );
+      if( ulLen )
+      {
+         pEOLs = ( PHB_EOL_INFO ) hb_xgrab( sizeof( HB_EOL_INFO ) );
+         pEOLs->szEOL = hb_parc( iParam );
+         pEOLs->ulLen = ulLen;
+         iEOLs = 1;
+      }
    }
    else if( HB_ISARRAY( iParam ) )
    {