Improve M$ Windows compatibility

[spider.git] / perl / DXLogPrint.pm

diff --git a/perl/DXLogPrint.pm b/perl/DXLogPrint.pm
index 32f39c26904d2560652ed1870651688834f3a55c..a6d074a6a64bfd78c768dae4e7388126f537117f 100644 (file)
--- 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 /\^/ ]
        }