git-svn-id: https://svn.code.sf.net/p/infobot/code/branches/don/dpkg@1942
c11ca15a-4712-0410-83d8-
924469b57eb5
# it does not matter if it's not alphabetically sorted.
foreach ( (sort { length($b) <=> length($a) } grep {$_ =~ /^\Q$chan \E/} @list),
- (sort { length($b) <=> length($a) } grep {$_ =~ /^\Q_default \E/} @list)
+ (sort { length($b) <=> length($a) } grep {$_ =~ /^\Q_default \E/} @list),
(sort { length($b) <=> length($a) } grep {$_ !~ /^(\Q$chan\E|default) /} @list)
) {
next if (/#DEL#/); # deleted.