fixed Keitairc::IrcBuffer::part()

[keitairc/keitairc.git] / lib / Keitairc / IrcBuffer.pm

diff --git a/lib/Keitairc/IrcBuffer.pm b/lib/Keitairc/IrcBuffer.pm
index d5a67f8..439dc14 100644 (file)
--- a/lib/Keitairc/IrcBuffer.pm
+++ b/lib/Keitairc/IrcBuffer.pm
@@ -1,6 +1,6 @@
 # -*-perl-*-
 # Keitairc::IrcBuffer
-# $Id: IrcBuffer.pm,v 1.7 2008-01-14 05:21:09 morimoto Exp $
+# $Id: IrcBuffer.pm,v 1.8 2008-01-18 16:55:46 morimoto Exp $
 # $Source: /home/ishikawa/work/keitairc/tmp/keitairc/lib/Keitairc/IrcBuffer.pm,v $
 #
 # Copyright (c) 2008 Jun Morimoto <morimoto@mrmt.net>
@@ -137,7 +137,7 @@ sub cid2name{
 ################################################################
 sub part{
        my($me, $cid) = @_;
-       delete $me->{name}->{$cid};
+       delete $me->{cid2name}->{$cid};
 }
 
 ################################################################