| … | … | ||
|---|---|---|---|
| 61 | push @{$topics{$v->[0]}}, $k; | 61 | push @{$topics{$v->[0]}}, $k; |
| 62 | } | 62 | } |
| 63 | 63 | ||
| 64 | my $res; | 64 | my $res; |
| 65 | while (my ($k, $v) = each %topics) { | 65 | while (my ($k, $v) = each %topics) { |
| 66 | $res .= "[b]$k:[/b]\n" . (join " ", @$v) . "\n\n"; | 66 | $res .= "[b]$k:[/b]\n" . (sort join " ", @$v) . "\n\n"; |
| 67 | } | 67 | } |
| 68 | 68 | ||
| 69 | $pl->reply (undef, $res); | 69 | $pl->reply (undef, $res); |
| 70 | 70 | ||
| 71 | } elsif (my $topic = $TOPIC->{$topic}) { | 71 | } elsif (my $topic = $TOPIC->{$topic}) { |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |