From acedb47bb87546e260a0ae4c096e0aca93c77822 Mon Sep 17 00:00:00 2001
From: morimoto <morimoto@180c8125-5b33-4295-ad04-72a68a15b4cc>
Date: Wed, 9 Jan 2008 18:47:01 +0000
Subject: [PATCH] now Keitairc::IrcBuffer->channels() returns proper names

---
 lib/Keitairc/IrcBuffer.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/Keitairc/IrcBuffer.pm b/lib/Keitairc/IrcBuffer.pm
index 8b72c59..2d70b85 100644
--- a/lib/Keitairc/IrcBuffer.pm
+++ b/lib/Keitairc/IrcBuffer.pm
@@ -1,6 +1,6 @@
 # -*-perl-*-
 # Keitairc::IrcBuffer
-# $Id: IrcBuffer.pm,v 1.1 2008-01-08 05:52:14 morimoto Exp $
+# $Id: IrcBuffer.pm,v 1.2 2008-01-09 18:47:01 morimoto Exp $
 # $Source: /home/ishikawa/work/keitairc/tmp/keitairc/lib/Keitairc/IrcBuffer.pm,v $
 #
 # Copyright (c) 2008 Jun Morimoto <morimoto@mrmt.net>
@@ -42,9 +42,9 @@ sub new{
 ################################################################
 sub channels{
 	my $me = shift;
-	sort {
-		$me->mtime($b) <=> $me->mtime($a)
-	} keys %{$me->{name}};
+	map {
+		$me->{name}->{$_}
+	}(sort { $me->mtime($b) <=> $me->mtime($a) } keys %{$me->{name}})
 }
 
 ################################################################
-- 
2.11.0