From 36636032d78e63ef85cd37ca054016956ba18a91 Mon Sep 17 00:00:00 2001 From: timriker Date: Mon, 28 Jun 2004 19:11:04 +0000 Subject: [PATCH] sort mini-list git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@965 c11ca15a-4712-0410-83d8-924469b57eb5 --- src/Misc.pl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/Misc.pl b/src/Misc.pl index 295d45e..10609fe 100644 --- a/src/Misc.pl +++ b/src/Misc.pl @@ -138,11 +138,12 @@ sub formListReply { @list = @list[0..$maxshow-1]; } + @list = sort @list; # form the reply. while () { $reply = $prefix ."(\002". scalar(@list). "\002 shown"; $reply .= "; \002$total\002 total" if ($total != scalar @list); - $reply .= "): ". join(" \002;;\002 ",@list) ."."; + $reply .= "): ". join(" \002;;\002 ", @list) ."."; last if (length($reply) < $maxlen and scalar(@list) <= $maxshow); last if (scalar(@list) == 1); -- 2.39.2