X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXLogPrint.pm;h=0d99eb41804a740a9d0e95a18c13cabdf2a93b36;hb=5bbe803ffc8771aa87c9d37ca92170f13bbc6bc1;hp=9564ae690b87d84817f32c1cea06e74cab5a826f;hpb=e092b3748fa8f58e626a0a379bdee05996f69c27;p=spider.git

diff --git a/perl/DXLogPrint.pm b/perl/DXLogPrint.pm
index 9564ae69..0d99eb41 100644
--- a/perl/DXLogPrint.pm
+++ b/perl/DXLogPrint.pm
@@ -18,8 +18,13 @@ 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!
+ 
 
 use strict;
 
@@ -107,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);