X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXLogPrint.pm;h=244402d6962493e685edb147cd734e83427284f3;hb=a26a82ebeee2135468113c64fc25c5f9ad1000cb;hp=9bb51f20a579a2e34ecf6220e5690ba7cd9e420a;hpb=dd902a3e23aeb207178d9960f17b757262842ed6;p=spider.git

diff --git a/perl/DXLogPrint.pm b/perl/DXLogPrint.pm
index 9bb51f20..244402d6 100644
--- a/perl/DXLogPrint.pm
+++ b/perl/DXLogPrint.pm
@@ -18,9 +18,12 @@ use DXLog;
 use Julian;
 
 
-our $readback = `which tac`;
+our $readback = 1;
+if ($readback) {
+	$readback = `which tac`;
+} 
 chomp $readback;
-undef $readback; 				# yet another reason not to use the cloud!
+#undef $readback; 				# yet another reason not to use the cloud!
  
 
 use strict;
@@ -57,7 +60,7 @@ sub print
 	}
 	if ($who) {
 		$hint .= ' && ' if $hint;
-		$hint .= q{m{\Q$who\E}oi};
+		$hint .= q{m{\Q$who\E}i};
 	} 
 	$hint = "next unless $hint" if $hint;
 	$hint .= "; next unless m{^\\d+\\^$pattern\\^}" if $pattern;
@@ -109,7 +112,7 @@ sub print
 		return "show/$name: ${s}not found";
 	} 
 
-	for (reverse @in) {
+	for (sort {$a <=> $b } @in) {
 		my @line = split /\^/ ;
 		push @out, print_item(\@line);