fix some pedantic warnings

[spider.git] / perl / DXLogPrint.pm

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