projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'staging' of ssh://server/scm/spider into staging
[spider.git]
/
perl
/
DXLogPrint.pm
diff --git
a/perl/DXLogPrint.pm
b/perl/DXLogPrint.pm
index 9bb51f20a579a2e34ecf6220e5690ba7cd9e420a..244402d6962493e685edb147cd734e83427284f3 100644
(file)
--- a/
perl/DXLogPrint.pm
+++ b/
perl/DXLogPrint.pm
@@
-18,9
+18,12
@@
use DXLog;
use Julian;
use Julian;
-our $readback = `which tac`;
+our $readback = 1;
+if ($readback) {
+ $readback = `which tac`;
+}
chomp $readback;
chomp $readback;
-
undef $readback;
# yet another reason not to use the cloud!
+
#undef $readback;
# yet another reason not to use the cloud!
use strict;
use strict;
@@
-57,7
+60,7
@@
sub print
}
if ($who) {
$hint .= ' && ' if $hint;
}
if ($who) {
$hint .= ' && ' if $hint;
- $hint .= q{m{\Q$who\E}
o
i};
+ $hint .= q{m{\Q$who\E}i};
}
$hint = "next unless $hint" if $hint;
$hint .= "; next unless m{^\\d+\\^$pattern\\^}" if $pattern;
}
$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";
}
return "show/$name: ${s}not found";
}
- for (
reverse
@in) {
+ for (
sort {$a <=> $b }
@in) {
my @line = split /\^/ ;
push @out, print_item(\@line);
my @line = split /\^/ ;
push @out, print_item(\@line);