X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXLogPrint.pm;h=a6d074a6a64bfd78c768dae4e7388126f537117f;hb=a3070f2678d8be7d44dbf2148cee77cd6a212243;hp=32f39c26904d2560652ed1870651688834f3a55c;hpb=5835ca385fb719194163512276666aaf75e82484;p=spider.git

diff --git a/perl/DXLogPrint.pm b/perl/DXLogPrint.pm
index 32f39c26..a6d074a6 100644
--- a/perl/DXLogPrint.pm
+++ b/perl/DXLogPrint.pm
@@ -18,7 +18,7 @@ use DXLog;
 use Julian;
 
 
-our $readback = 1;
+our $readback = $main::is_win ? 0 : 1;
 if ($readback) {
 	$readback = `which tac`;
 } 
@@ -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 /\^/ ]
 	}