avoid garbage in db->dirbuf

	Message-Id: <199812050514.OAA23268@toshiba.co.jp>
	Subject: SDBM bug

p4raw-id: //depot/perl@2819

diff --git a/ext/SDBM_File/sdbm/sdbm.c b/ext/SDBM_File/sdbm/sdbm.c
index 637fbe9..c147e45 100644 (file)
--- a/ext/SDBM_File/sdbm/sdbm.c
+++ b/ext/SDBM_File/sdbm/sdbm.c
@@ -437,6 +437,7 @@ setdbit(register DBM *db, register long int dbit)
        dirb = c / DBLKSIZ;
 
        if (dirb != db->dirbno) {
+               (void) memset(db->dirbuf, 0, DBLKSIZ);
                if (lseek(db->dirf, OFF_DIR(dirb), SEEK_SET) < 0
                    || read(db->dirf, db->dirbuf, DBLKSIZ) < 0)
                        return 0;