[MacPerl] FW: Problems with DB_File

["Jungwirth, Russell" <rjungwir@kcc.com>]

Have I missed a question in the FAQs or archives of this list?  Perhaps
I wasn't explicit enough
in the description of the problem.  The SDBM implementation under
MacPerl seems to have a 
serious bug.  When my DBM file reaches a certain volume it fails.  All
subsequent entries into 
the DB fail to store the value.  The key seems to take, but no
associated value is stored. 
All subsequent attempts to store or change values in the DB fail in a
similar manner.  The 
script attached is illustrative.

> ----------
> From: 	Jungwirth, Russell
> Sent: 	Wednesday, November 26, 1997 4:07 PM
> To: 	'MacPerl Questions'
> Subject: 	Problems with DB_File
> 
> This code fails using MacPerl 5.15r4 on:
> Quadra 950, System 7.6.1, CFM68k MacPerl
> Power Macintosh 7200/90, System 7.6.1, Power Mac Native MacPerl
> 
> But it works on:
> PowerBook 165, System 7.6.1, CFM68k MacPerl
> 
> All systems have sufficient RAM and Storage.  They are all fully
> functioning
> to the best of my knowledge.
> The DBM file fails to return values from a certain point on, depending
> on
> the value of the variable $sl.  
> 
> HELP! 
> 
> Russell J. Jungwirth
> ----------------------------------------------
> 
> use Mac::Files;
> use DB_File;
> 
> $DBM_LOCAL_PATH = "MAC 7:Desktop Folder:DBMs";
> $sl = 10;
> FSpDelete("$DBM_LOCAL_PATH:dbm_file_moves_path");
> OUTER: for ($i = 1000;$i <= 2000; $i = $i + 100)  {
> 	print "Loading $i\n";
> 
> tie(%DB_origpath,'DB_File',"$DBM_LOCAL_PATH:dbm_file_moves_path",O_RDW
> R|O_CREAT,0777) || die $!;
> 	for ($j = ($i-100);$j<=$i;$j++)  {
> 		$DB_origpath{"$j"} = ("x" x $sl);
> 	}
> 	print "Reading $i\n";
> 	for ($k=900;$k<=$i;$k++)  {
> 		if ($DB_origpath{"$k"} eq "") {
> 			MacPerl::Answer("$i $k");
> 			last OUTER;
> 		}
> 	}
>  	$ret_val = untie(%DB_origpath);
> }
> 
> 

***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch