Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!uunet!mcsun!hp4nl!esatst!arne
From: arne@yc.estec.nl (Arne Lundberg)
Newsgroups: comp.lang.perl
Subject: DBM problems in pl.28
Message-ID: <1414@esatst.yc.estec.nl>
Date: 17 Aug 90 13:07:46 GMT
Reply-To: arne@yc.estec.nl (Arne Lundberg)
Organization: ESTEC/YCV, Noordwijk, The Netherlands
Lines: 43

Since installing patch 28 I have found a problem with dbm files,
exemplified with the following small example:

------------------------------------------------------------------
dbmopen(I,  "/tmp/index", 0666) || die "cant open index dbm";


# $I{'#'} = '#';	#	This kludge will eliminate the problem

while (($k, $v) = each %I) {
    if ($s = $I{$k}) {
	    print "$k FOUND in dbm file\n"; 
    } else {
	    print "$k not found in dbm file\n";
    }
}
dbmclose(I);
exit(0);
------------------------------------------------------------------

When this is run and the dbm file contains a few entries the following
is printed:

a not found in dbm file
b not found in dbm file
c not found in dbm file
abc not found in dbm file
def not found in dbm file
# not found in dbm file

If the kludge line is activated it will correctly find all entries in
the dbm file.

I am running perl on a hp9000/835 with HP-UX 7.0.

Has anyone seen this before, what can I do?


Arne Lundberg

European Space Technology Centre, Noordwijk, the Netherlands
arne@yc.estec.nl or ALUNDBER@ESTEC.BITNET
Phone: +31 1719 84865, Fax: +31 1719 12142, Telex: 39098