From 095ee6150a654464b3fdf47e96a18d3b4052eea8 Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Fri, 2 Nov 2012 12:42:20 +0000
Subject: [PATCH] 2012-11-02 13:41 UTC+0100 Viktor Szakats (harbour syenar.net)
   * bin/find.hb     + only look for hbx files in 'include', 'contrib' and
 'addons'       subdirs, in that order.

---
 harbour/ChangeLog   | 5 +++++
 harbour/bin/find.hb | 6 +++++-
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 1d06702bb3..d9d0c608c2 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,11 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2012-11-02 13:41 UTC+0100 Viktor Szakats (harbour syenar.net)
+  * bin/find.hb
+    + only look for hbx files in 'include', 'contrib' and 'addons'
+      subdirs, in that order.
+
 2012-11-02 13:09 UTC+0100 Viktor Szakats (harbour syenar.net)
   * contrib/hbexpat/*.[c|h]
   * contrib/hbzebra/*.[c|h]
diff --git a/harbour/bin/find.hb b/harbour/bin/find.hb
index 91d420ef72..572311ed3d 100644
--- a/harbour/bin/find.hb
+++ b/harbour/bin/find.hb
@@ -30,7 +30,9 @@
 
 PROCEDURE Main( ... )
 
-   WalkDir( hb_DirBase() + ".." + hb_ps(), { ... } )
+   WalkDir( hb_DirBase() + ".." + hb_ps() + "include", { ... } )
+   WalkDir( hb_DirBase() + ".." + hb_ps() + "contrib", { ... } )
+   WalkDir( hb_DirBase() + ".." + hb_ps() + "addons" , { ... } )
 
    RETURN
 
@@ -38,6 +40,8 @@ STATIC PROCEDURE WalkDir( cDir, aContains )
 
    LOCAL aFile
 
+   cDir := hb_DirSepAdd( PathSepToSelf( cDir ) )
+
    FOR EACH aFile IN Directory( cDir + hb_osFileMask(), "D" )
       IF aFile[ F_NAME ] == "." .OR. aFile[ F_NAME ] == ".."
       ELSEIF "D" $ aFile[ F_ATTR ]