diff options
author | des <des@FreeBSD.org> | 2003-01-18 12:12:49 +0000 |
---|---|---|
committer | des <des@FreeBSD.org> | 2003-01-18 12:12:49 +0000 |
commit | 2555f8d918f9a430901768049407f2154424efc5 (patch) | |
tree | be91a946b8176c46e6e1b8234d44edb659356dc5 | |
parent | 0d5519ef7a7bf5895fc59234b68fed9eabefbab4 (diff) | |
download | FreeBSD-src-2555f8d918f9a430901768049407f2154424efc5.zip FreeBSD-src-2555f8d918f9a430901768049407f2154424efc5.tar.gz |
Indentation cleanup.
-rw-r--r-- | tools/tools/whereintheworld/whereintheworld.pl | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/tools/tools/whereintheworld/whereintheworld.pl b/tools/tools/whereintheworld/whereintheworld.pl index 349c0d9..cf4d219 100644 --- a/tools/tools/whereintheworld/whereintheworld.pl +++ b/tools/tools/whereintheworld/whereintheworld.pl @@ -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; |