diff -urN tiarra-20040307/ChangeLog tiarra-20040309/ChangeLog
--- tiarra-20040307/ChangeLog	2004-03-07 19:37:53.000000000 +0900
+++ tiarra-20040309/ChangeLog	2004-03-09 17:03:45.000000000 +0900
@@ -1,3 +1,13 @@
+2004-03-09  Topia  <topia@clovery.jp>
+
+	* module/Client/Cache.pm:
+	  - destruct において、呼ぶメソッドを勘違いしていたのを修正。
+
+2004-03-08  phonohawk  <phonohawk@ps.sakura.ne.jp>
+
+	* module/Unicode/Japanese.pm:
+	UniJP 0.20に置換え。
+
 2004-03-07  Topia  <topia@clovery.jp>
 
 	* tiarra:
@@ -1444,7 +1454,7 @@
 
 	* これ以前のログは書いていません。
 
-#       Id: $Id: ChangeLog,v 1.134 2004/03/07 10:34:19 topia Exp $
+#       Id: $Id: ChangeLog,v 1.136 2004/03/09 07:48:12 topia Exp $
 #   Author: $Author: topia $
-#     Date: $Date: 2004/03/07 10:34:19 $
-# Revision: $Revision: 1.134 $
+#     Date: $Date: 2004/03/09 07:48:12 $
+# Revision: $Revision: 1.136 $
ファイルtiarra-20040307/main/Unicode/Japanese.pmとtiarra-20040309/main/Unicode/Japanese.pmは違います
diff -urN tiarra-20040307/module/Client/Cache.pm tiarra-20040309/module/Client/Cache.pm
--- tiarra-20040307/module/Client/Cache.pm	2004-03-07 19:37:54.000000000 +0900
+++ tiarra-20040309/module/Client/Cache.pm	2004-03-09 17:03:46.000000000 +0900
@@ -1,5 +1,5 @@
 # -----------------------------------------------------------------------------
-# $Id: Cache.pm,v 1.5 2004/03/07 10:34:19 topia Exp $
+# $Id: Cache.pm,v 1.6 2004/03/09 07:48:12 topia Exp $
 # -----------------------------------------------------------------------------
 package Client::Cache;
 use strict;
@@ -24,8 +24,8 @@
     # cleaning remarks
 
     # チャンネルについている remark を削除。
-    foreach my $network (@{RunLoop->shared_loop->networks}) {
-	foreach my $ch (@{$network->channels}) {
+    foreach my $network (RunLoop->shared_loop->networks_list) {
+	foreach my $ch ($network->channels_list) {
 	    $ch->remark("__PACKAGE__/fetching-switches", undef, 'delete');
 	    $ch->remark("__PACKAGE__/fetching-who", undef, 'delete');
 	}