Index: Shingetsu/Cache.pm
===================================================================
RCS file: /cvsroot/shingetsu/shingetsu/Shingetsu/Cache.pm,v
retrieving revision 1.60
retrieving revision 1.61
diff -u -r1.60 -r1.61
--- Shingetsu/Cache.pm	19 Dec 2004 11:40:40 -0000	1.60
+++ Shingetsu/Cache.pm	19 Dec 2004 13:59:51 -0000	1.61
@@ -3,7 +3,7 @@
 #
 # (c) Fuktommy <fuktommy@users.sourceforge.net>
 # Released under the GNU General Public License
-# $Id: Cache.pm,v 1.60 2004/12/19 11:40:40 fuktommy Exp $
+# $Id: Cache.pm,v 1.61 2004/12/19 13:59:51 fuktommy Exp $
 #
 
 package Shingetsu::Cache;
@@ -274,6 +274,10 @@
 	rename "$datadir/$file.dat.tmp", "$datadir/$file.dat" or die "$datadir/$file: rename failed. $!";
 	Shingetsu::Util::unlock();
 
+	my %stat = Shingetsu::CacheStat::list();
+	$stat{$file}{size} = (-s "$datadir/$file.dat");
+	Shingetsu::CacheStat::sync(%stat);
+
 	Shingetsu::AttachCache::removeRecord($file, $stamp, $id) or return undef;
 	return 1;
 }