From 2e1d968cc72fc44576f895305d7e87f47c66fbe0 Mon Sep 17 00:00:00 2001
From: April White <april@users.sourceforge.net>
Date: Sat, 19 Sep 2009 14:33:06 +0000
Subject: [PATCH]   * examples/hbdoc2/hbdoc2.prg      * bug fix when handling
 "--help" command line

---
 harbour/ChangeLog                  | 4 ++++
 harbour/examples/hbdoc2/hbdoc2.prg | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index ee1ab78ba2..cc303f94c0 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,10 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2009-09-19 16:31 UTC+0600 April White (april users.sourceforge.net)
+  * examples/hbdoc2/hbdoc2.prg
+     * bug fix when handling "--help" command line
+
 2009-09-19 16:17 UTC+0600 April White (april users.sourceforge.net)
   * doc/class_tp.txt
   * doc/hdr_tpl.txt
diff --git a/harbour/examples/hbdoc2/hbdoc2.prg b/harbour/examples/hbdoc2/hbdoc2.prg
index 671a91b415..ba6bea6caa 100644
--- a/harbour/examples/hbdoc2/hbdoc2.prg
+++ b/harbour/examples/hbdoc2/hbdoc2.prg
@@ -959,7 +959,7 @@ PROCEDURE ShowHelp( cExtraMessage, aArgs )
    LOCAL aHelp
 
    DO CASE
-   CASE Empty( aArgs ) .OR. Len( aArgs ) == 0 .OR. Empty( aArgs[ 1 ] )
+   CASE Empty( aArgs ) .OR. Len( aArgs ) <= 1 .OR. Empty( aArgs[ 1 ] )
       aHelp = { ;
          cExtraMessage, ;
          "Harbour Document Extractor  No. 2 (" + Version() + ")", ;