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;
return "show/$name: ${s}not found";
}
- for (reverse @in) {
+ for (sort {$a <=> $b } @in) {
my @line = split /\^/ ;
push @out, print_item(\@line);