bike/dswim
1
0
Fork 0
mirror of https://github.com/fspc/dswim.git synced 2025-04-04 08:13:24 -04:00
Code Issues Projects Releases Wiki Activity

fixed a problem where put() was putting keys and values in random

Browse Source 
places, using a normal hash fixed the probem and now --db works
perfectly again.  Seems to be a bug introduced with the newer berkely
and DB_File since it wasn't a problem before.  Solved.
This commit is contained in:
freesource 2005-01-27 04:05:39 +00:00
parent 764c7fc2cb
commit ef8bc2c5a1
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
SWIM/DB.pm
View File

@ -876,12 +876,19 @@ sub db {
} # if defined } # if defined
else { else {
dbi(\%commands); dbi(\%commands);
print "$_ $db{$package_name}\n";
$zing->put($_,$db{$package_name}); #$zing->put($_,$db{$package_name});
# wow, very weird .. used to work fine, but this did the trick :)
# otherwise the key and value were placed in random places
# and never together
# inspired here - http://modperlbook.org/html/ch19_06.html
# in 19.6.2. Read/Write Access
$ib{$_} = $db{$package_name};
} }
untie %db; untie %db;
untie $zing; untie $zing;
} # end while } # end while