d/freebsd-skq
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Indentation cleanup.

Browse Source
This commit is contained in:
des 2003-01-18 12:12:49 +00:00
parent 0d5519ef7a
commit 2555f8d918
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
tools/tools/whereintheworld/whereintheworld.pl
View File

@ -9,6 +9,7 @@
# $Id: whereintheworld,v 1.3 2000/01/28 00:42:32 fenner Exp $
# $FreeBSD$
#
use strict;
my $line;
@ -33,10 +34,10 @@ while ($line = <>) {
next;
}
if ($line =~ /^=+>/) {
@lines = ();
@lines = ();
}
if (length($line) >= $width) {
substr($line, $width - 7) = " [...]\n";
substr($line, $width - 7) = " [...]\n";
}
push(@lines, $line);
if ($line =~ /^\*\*\* Error/ && $line !~ /\(ignored\)/) {
@ -50,10 +51,10 @@ while ($line = <>) {
print shift(@lines);
while (@lines > $thresh) {
shift(@lines);
++$elided;
shift(@lines);
++$elided;
}
if ($elided > 0) {
print "[$elided lines elided]\n";
print "[$elided lines elided]\n";
}
print @lines;