we did a sort() when we should not have for '.sched'

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@372 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/Modules/UserDCC.pl b/src/Modules/UserDCC.pl
index 9343338c1ac74a6323ef7e8617c5d62a23bac43d..2960e2958686bed1d3a1f61b6317db1f3808956f 100644 (file)
--- a/src/Modules/UserDCC.pl
+++ b/src/Modules/UserDCC.pl
@@ -1218,10 +1218,11 @@ sub userDCC {
        my @time;
        foreach (sort { $a <=> $b } keys %time) {
            my $str = join(", ", sort keys %{ $time{$_} });
+           &DEBUG("time => $_, str => $str");
            push(@time, "$str (".&Time2String($_).")");
        }
 
-       &pSReply( &formListReply(0, "Schedulers: ", sort @time ) );
+       &pSReply( &formListReply(0, "Schedulers: ", @time ) );
        &pSReply( &formListReply(0, "Scheds to run: ", sort @list ) );
        &pSReply( &formListReply(0, "Scheds running(should not happen?) ", sort @run ) );