increase LRU cache sizes

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 80a9b64167fd767aa5997f8c7ae4ac8113701222..6b85afb3025c4883d247a46b3735f8220cf98d58 100644 (file)
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -32,7 +32,7 @@ $dbm = undef;
 $filename = undef;
 $lastoperinterval = 60*24*60*60;
 $lasttime = 0;
-$lrusize = 500;
+$lrusize = 2000;
 
 # hash of valid elements and a simple prompt
 %valid = (

diff --git a/perl/Prefix.pm b/perl/Prefix.pm
index a07ebdbdde8ff5dc8fd727bd5784829b1729001c..10559711961130312a3829198c64bce1daa6372f 100644 (file)
--- a/perl/Prefix.pm
+++ b/perl/Prefix.pm
@@ -30,7 +30,7 @@ $db = undef;                                  # the DB_File handle
 %prefix_loc = ();                              # the meat of the info
 %pre = ();                                             # the prefix list
 $hits = $misses = $matchtotal = 1;             # cache stats
-$lrusize = 1000;                               # size of prefix LRU cache
+$lrusize = 2000;                               # size of prefix LRU cache
 
 $lru = LRU->newbase('Prefix', $lrusize);