--- trunk/all2xml.pl 2004/02/05 10:55:58 218 +++ trunk/all2xml.pl 2004/03/05 22:53:30 231 @@ -321,7 +321,7 @@ } else { $display_data .= $ldel if ($display_data); my $tmp = mkformat($x,$display); - $display_data = $tmp if ($tmp); + $display_data .= $tmp if ($tmp); } } @@ -592,6 +592,8 @@ #tie %lhash, 'GDBM_File', $lookup_file, &GDBM_NEWDB, 0644; tie %lhash, 'TDB_File', $lookup_file, TDB_CLEAR_IF_FIRST, O_RDWR, 0644; print STDERR "creating lookup file '$lookup_file'\n"; + # delete memory cache for lookup file + delete $cache->{lhash}; } # open existing lookup file