diff options
| author | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1989-11-10 16:20:25 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1989-11-10 16:20:25 +0000 |
| commit | bf38876a182e0df9dd73362f56cf0ab8b43aa789 (patch) | |
| tree | 0c8c37dbaeeadb7549ca7b6d3f2b19d92896f9bb /hash.c | |
| parent | 91407755d9b894ac1239c4fafe586e52138db38d (diff) | |
| download | perl-bf38876a182e0df9dd73362f56cf0ab8b43aa789.tar.gz | |
perl 3.0 patch #3 Patch #2 continued
Diffstat (limited to 'hash.c')
| -rw-r--r-- | hash.c | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -1,4 +1,4 @@ -/* $Header: hash.c,v 3.0 89/10/18 15:18:32 lwall Locked $ +/* $Header: hash.c,v 3.0.1.1 89/11/11 04:34:18 lwall Locked $ * * Copyright (c) 1989, Larry Wall * @@ -6,6 +6,9 @@ * as specified in the README file that comes with the perl 3.0 kit. * * $Log: hash.c,v $ + * Revision 3.0.1.1 89/11/11 04:34:18 lwall + * patch2: CX/UX needed to set the key each time in associative iterators + * * Revision 3.0 89/10/18 15:18:32 lwall * 3.0 baseline * @@ -377,6 +380,8 @@ register HASH *tb; if (entry) { #ifdef NDBM #ifdef _CX_UX + key.dptr = entry->hent_key; + key.dsize = entry->hent_klen; key = dbm_nextkey(tb->tbl_dbm, key); #else key = dbm_nextkey(tb->tbl_dbm); |