From 4fc0f0590e67fa3ca82d11ef6f235633099d271d Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Thu, 26 Feb 2004 08:24:32 +0000
Subject: firstly, constructor() expires too old cache.

---
 fml/lib/FML/Error/Cache.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'fml')

diff --git a/fml/lib/FML/Error/Cache.pm b/fml/lib/FML/Error/Cache.pm
index f434001b..6df1f62a 100644
--- a/fml/lib/FML/Error/Cache.pm
+++ b/fml/lib/FML/Error/Cache.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Cache.pm,v 1.17 2004/01/01 08:48:41 fukachan Exp $
+# $FML: Cache.pm,v 1.18 2004/01/31 14:12:17 fukachan Exp $
 #
 
 package FML::Error::Cache;
@@ -61,6 +61,10 @@ sub new
 	$curproc->mkdir($db_dir, "mode=private");
     }
 
+    use Tie::JournaledDir;
+    my $obj = new Tie::JournaledDir { dir => $db_dir };
+    $obj->expire();
+
     return bless $me, $type;
 }
 
-- 
cgit v1.2.1