From 2555f8d918f9a430901768049407f2154424efc5 Mon Sep 17 00:00:00 2001 From: des Date: Sat, 18 Jan 2003 12:12:49 +0000 Subject: [PATCH] Indentation cleanup. --- tools/tools/whereintheworld/whereintheworld.pl | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/tools/tools/whereintheworld/whereintheworld.pl b/tools/tools/whereintheworld/whereintheworld.pl index 349c0d983169..cf4d219003d7 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;