--- parser3/src/main/Attic/pa_hash.C	2001/03/18 13:22:06	1.23
+++ parser3/src/main/Attic/pa_hash.C	2001/03/19 17:42:16	1.26
@@ -1,9 +1,11 @@
-/*
-	Parser
+/** @file
+	Parser: hash class.
+
 	Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
+
 	Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
 
-	$Id: pa_hash.C,v 1.23 2001/03/18 13:22:06 paf Exp $
+	$Id: pa_hash.C,v 1.26 2001/03/19 17:42:16 paf Exp $
 */
 
 /*
@@ -156,7 +158,8 @@ void Hash::foreach(Foreach_func func, vo
 	Pair **ref=refs;
 	for(int index=0; index<allocated; index++)
 		for(Pair *pair=*ref++; pair; pair=pair->link)
-			(*func)(pair->key, pair->value, info);
+			if(pair->value)
+				(*func)(pair->key, pair->value, info);
 }
 
 void Hash::clear() {  SYNCHRONIZED(thread_safe);