X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXLogPrint.pm;h=92deee427026cf1e574b3a66c5d479a88131304f;hb=refs%2Fheads%2Fstaging;hp=32f39c26904d2560652ed1870651688834f3a55c;hpb=5835ca385fb719194163512276666aaf75e82484;p=spider.git diff --git a/perl/DXLogPrint.pm b/perl/DXLogPrint.pm index 32f39c26..92deee42 100644 --- a/perl/DXLogPrint.pm +++ b/perl/DXLogPrint.pm @@ -114,7 +114,7 @@ sub search return "show/$name: ${s}not found"; } - for (sort {$a <=> $b } @in) { + for (sort {$a cmp $b } @in) { push @out, [ split /\^/ ] }