From 78e7bc87e8c3e2271f391b3640f55a3de89c9175 Mon Sep 17 00:00:00 2001
From: morimoto <morimoto@180c8125-5b33-4295-ad04-72a68a15b4cc>
Date: Mon, 25 Feb 2008 16:52:20 +0000
Subject: [PATCH] fixed handling over 10 channels, closed #11959

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

diff --git a/lib/Keitairc/IrcBuffer.pm b/lib/Keitairc/IrcBuffer.pm
index e0fed28..7c91104 100644
--- a/lib/Keitairc/IrcBuffer.pm
+++ b/lib/Keitairc/IrcBuffer.pm
@@ -1,6 +1,6 @@
 # -*-perl-*-
 # Keitairc::IrcBuffer
-# $Id: IrcBuffer.pm,v 1.9 2008-02-25 15:46:31 morimoto Exp $
+# $Id: IrcBuffer.pm,v 1.10 2008-02-25 16:52:20 morimoto Exp $
 # $Source: /home/ishikawa/work/keitairc/tmp/keitairc/lib/Keitairc/IrcBuffer.pm,v $
 #
 # Copyright (c) 2008 Jun Morimoto <morimoto@mrmt.net>
@@ -122,7 +122,7 @@ sub name2cid{
 	$name =~ tr/A-Z[\\]^/a-z{|}~/;
 
 	unless(defined $me->{name2cid}->{$name}){
-		my @sort = sort(keys %{$me->{cid2name}});
+		my @sort = sort { $a - $b } (keys %{$me->{cid2name}});
 		my $cid = 1 + pop @sort;
 		$me->{cid2name}->{$cid} = $name;
 		$me->{name2cid}->{$name} = $cid;
-- 
2.11.0