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