diff options
| author | des <des@FreeBSD.org> | 2003-02-12 09:51:47 +0000 |
|---|---|---|
| committer | des <des@FreeBSD.org> | 2003-02-12 09:51:47 +0000 |
| commit | e6262b3f6018a00a64163d90a25ebd8a9688eca2 (patch) | |
| tree | af5042908f14f3eee7aba68d937712b640053e85 | |
| parent | ba1e23916c436c106d106479d222c01c78ab48cc (diff) | |
| download | FreeBSD-src-e6262b3f6018a00a64163d90a25ebd8a9688eca2.zip FreeBSD-src-e6262b3f6018a00a64163d90a25ebd8a9688eca2.tar.gz | |
Teach whereintheworld to preserve TinderboxNG log messages.
| -rw-r--r-- | tools/tools/whereintheworld/whereintheworld.pl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/tools/tools/whereintheworld/whereintheworld.pl b/tools/tools/whereintheworld/whereintheworld.pl index 23654df..d64e7e5 100644 --- a/tools/tools/whereintheworld/whereintheworld.pl +++ b/tools/tools/whereintheworld/whereintheworld.pl @@ -34,6 +34,10 @@ while ($line = <>) { $lastwasdash = 0; next; } + if ($line =~ /^TB /) { + print $line; + next; + } if ($line =~ /^=+>/) { @lines = (); } @@ -58,7 +62,7 @@ if (!$error) { } } foreach $line (@lines) { - if (!$error && length($line) >= $width) { + if (!$error && $line !~ m/^TB / && length($line) >= $width) { substr($line, $width - 7) = " [...]\n"; } print $line; |
