[LON-CAPA-cvs] cvs: loncom(version_1_3_X_memcached) /lonnet/perl lonnet.pm

[albertel]

albertel		Sun Feb 13 23:31:59 2005 EDT

  Modified files:              (Branch: version_1_3_X_memcached)
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - left a debug on
  - bumping to_remeber with more caches want to remember more memcache results to prevent thrashing
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.587.2.3.2.11 loncom/lonnet/perl/lonnet.pm:1.587.2.3.2.12
--- loncom/lonnet/perl/lonnet.pm:1.587.2.3.2.11	Sun Feb 13 23:29:43 2005
+++ loncom/lonnet/perl/lonnet.pm	Sun Feb 13 23:31:59 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.587.2.3.2.11 2005/02/14 04:29:43 albertel Exp $
+# $Id: lonnet.pm,v 1.587.2.3.2.12 2005/02/14 04:31:59 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -782,7 +782,7 @@
     $courseid=~s/^(\w)/\/$1/;
 
     my $hashid="$udom:$unam:$courseid";
-    my ($result,$cached)=&is_cached_new('getsection',$hashid,1);
+    my ($result,$cached)=&is_cached_new('getsection',$hashid);
     if (defined($cached)) { return $result; }
 
     my %Pending; 
@@ -1023,7 +1023,7 @@
 #    &logthis("load_cache_item $name took ".(&Time::HiRes::time()-$starttime));
 }
 
-my $to_remember=10;
+my $to_remember=20;
 my %remembered;
 my %accessed;
 my $kicks=0;