… | … | ||
---|---|---|---|
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" . (sort join " ", @$v) . "\n\n"; | 66 | $res .= "[b]$k:[/b]\n" . (join " ", sort @$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 |