2002-10-22 02:00 UTC-0500 Paul Tucker <ptucker@sympatico.ca>

harbour/ChangeLog

@@ -1,4 +1,4 @@
-/*
+ 		/*
  * $Id$
  */
 
@@ -8,6 +8,10 @@
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2002-10-22 02:00 UTC-0500 Paul Tucker <ptucker@sympatico.ca>
+  * source/rdd/dbcmd.c
+    ! corrected copy length in rddsetdefault
+
 2002-10-22 18:53 UTC+0100 Antonio Linares <alinares@fivetech.com>
   * source/rtl/filesys.c
     ! minor fix reported by José Fco. Pérez

harbour/source/rdd/dbcmd.c

@@ -926,6 +926,8 @@ void hb_rddShutDown( void )
    if( s_szDefDriver )
       hb_xfree( s_szDefDriver );
 
+   s_szDefDriver = NULL;
+
    while( s_pRddList )
    {
       pRddNode = s_pRddList;
@@ -2898,7 +2900,7 @@ HB_FUNC( __RDDSETDEFAULT )
    if( uiLen > 0 )
    {
       s_szDefDriver = ( char * ) hb_xrealloc( s_szDefDriver, uiLen + 1 );
-      hb_strncpyUpper( s_szDefDriver, hb_parc( 1 ), uiLen+1 );
+      hb_strncpyUpper( s_szDefDriver, hb_parc( 1 ), uiLen );
    }
 }