From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <zsh-workers-return-25322-mason-zsh=primenet.com.au@sunsite.dk>
Received: (qmail 20346 invoked from network); 21 Jul 2008 02:33:19 -0000
X-Spam-Checker-Version: SpamAssassin 3.2.5 (2008-06-10) on f.primenet.com.au
X-Spam-Level: 
X-Spam-Status: No, score=-2.6 required=5.0 tests=AWL,BAYES_00 autolearn=ham
	version=3.2.5
Received: from news.dotsrc.org (HELO a.mx.sunsite.dk) (130.225.247.88)
  by ns1.primenet.com.au with SMTP; 21 Jul 2008 02:33:19 -0000
Received-SPF: none (ns1.primenet.com.au: domain at sunsite.dk does not designate permitted sender hosts)
Received: (qmail 84184 invoked from network); 21 Jul 2008 02:33:15 -0000
Received: from sunsite.dk (130.225.247.90)
  by a.mx.sunsite.dk with SMTP; 21 Jul 2008 02:33:15 -0000
Received: (qmail 10281 invoked by alias); 21 Jul 2008 02:33:12 -0000
Mailing-List: contact zsh-workers-help@sunsite.dk; run by ezmlm
Precedence: bulk
X-No-Archive: yes
X-Seq: 25322
Received: (qmail 10265 invoked from network); 21 Jul 2008 02:33:12 -0000
Received: from bifrost.dotsrc.org (130.225.254.106)
  by sunsite.dk with SMTP; 21 Jul 2008 02:33:12 -0000
Received: from cork.scru.org (cork.scru.org [209.20.67.2])
	by bifrost.dotsrc.org (Postfix) with ESMTPS id 1267E80561C3
	for <zsh-workers@sunsite.dk>; Mon, 21 Jul 2008 04:33:09 +0200 (CEST)
Received: by cork.scru.org (Postfix, from userid 1000)
	id 001CE10402D; Mon, 21 Jul 2008 02:33:07 +0000 (UTC)
Date: Mon, 21 Jul 2008 02:33:07 +0000
From: Clint Adams <clint@zsh.org>
To: zsh-workers@sunsite.dk
Subject: PATCH: make ${(k)gdbmhash} work
Message-ID: <20080721023307.GA24535@scru.org>
Mail-Followup-To: zsh-workers@sunsite.dk
References: <20080721001634.GA20601@scru.org> <20080721005152.GA21796@scru.org> <20080721014412.GA23562@scru.org>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
In-Reply-To: <20080721014412.GA23562@scru.org>
User-Agent: Mutt/1.5.18 (2008-05-17)
X-Virus-Scanned: ClamAV 0.92.1/7764/Sun Jul 20 18:42:45 2008 on bifrost
X-Virus-Status: Clean

ztie -d db/gdbm -f /tmp/newfile.db hokeypokey
hokeypokey[horse]=buggy
hokeypokey[apple]=pie
print -l -- ${hokeypokey}
print ${hokeypokey[horse]}
print ${hokeypokey[apple]}
print -l -- ${(k)hokeypokey}

Index: Src/Modules/db_gdbm.c
===================================================================
RCS file: /cvsroot/zsh/zsh/Src/Modules/db_gdbm.c,v
retrieving revision 1.3
diff -u -r1.3 db_gdbm.c
--- Src/Modules/db_gdbm.c	21 Jul 2008 02:24:03 -0000	1.3
+++ Src/Modules/db_gdbm.c	21 Jul 2008 02:31:39 -0000
@@ -191,6 +191,7 @@
     while(key.dptr) {
 	content = gdbm_fetch(dbf, key);
 
+	pm->node.nam = key.dptr;
 	pm->u.str = content.dptr;
 	pm->gsu.s = &nullsetscalar_gsu;