Teach whereintheworld to preserve TinderboxNG log messages.

This commit is contained in:
Dag-Erling Smørgrav 2003-02-12 09:51:47 +00:00
parent 8ebd558f5d
commit a2036ac045
Notes: svn2git 2020-12-20 02:59:44 +00:00
svn path=/head/; revision=110760

View File

@ -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;