From f7a438ec120af123359ba764d0c82460b64b216a Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Thu, 14 Jun 2012 10:12:00 +0000
Subject: [PATCH] 2012-06-14 12:11 UTC+0200 Viktor Szakats (harbour syenar.net)
   * utils/hbmk2/hbmk2.prg     ! fixed not updating extension list on screen
 when it       became empty

---
 harbour/ChangeLog             | 5 +++++
 harbour/utils/hbmk2/hbmk2.prg | 6 +++---
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 06449330de..bd3eb52c05 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,11 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2012-06-14 12:11 UTC+0200 Viktor Szakats (harbour syenar.net)
+  * utils/hbmk2/hbmk2.prg
+    ! fixed not updating extension list on screen when it
+      became empty
+
 2012-06-14 12:01 UTC+0200 Viktor Szakats (harbour syenar.net)
   * contrib/hbide/hbide.hbp
   * contrib/hbide/idemain.prg
diff --git a/harbour/utils/hbmk2/hbmk2.prg b/harbour/utils/hbmk2/hbmk2.prg
index 428142a08f..c4e8638023 100644
--- a/harbour/utils/hbmk2/hbmk2.prg
+++ b/harbour/utils/hbmk2/hbmk2.prg
@@ -12427,6 +12427,7 @@ FUNCTION __hbrun_extensions_dynamic_load( cName )
 FUNCTION __hbrun_extensions_dynamic_unload( cName )
 
    IF cName $ s_hLibExtDyn .AND. s_hLibExtDyn[ cName ] != NIL
+      s_hLibExtDyn[ cName ] := NIL
       hb_HDel( s_hLibExtDyn, cName )
       RETURN .T.
    ENDIF
@@ -12779,9 +12780,8 @@ STATIC PROCEDURE __hbrun_Info( cCommand )
    IF s_lPreserveHistory
       hb_DispOutAt( 1, MaxCol(), "o", "R/BG" )
    ENDIF
-   IF ! Empty( __hbrun_extensions_get_list() )
-      hb_DispOutAt( 2, 0, PadR( "Ext: " + ArrayToList( __hbrun_extensions_get_list(), ", " ), MaxCol() + 1 ), "W/B" )
-   ENDIF
+
+   hb_DispOutAt( 2, 0, PadR( "Ext: " + ArrayToList( __hbrun_extensions_get_list(), ", " ), MaxCol() + 1 ), "W/B" )
 
    RETURN