Be more careful when removing duplicate lines. Remember that

perl considers "0" false, not true, so explicitly check each
line against "".

1 files changed, 1 insertions, 1 deletions

diff --git a/CVSROOT/logcheck b/CVSROOT/logcheck
index fa4d88e..422ff58 100755
--- a/CVSROOT/logcheck
+++ b/CVSROOT/logcheck
@@ -57,7 +57,7 @@ close IN;
 # Remove leading, trailing and duplicate blank lines.
 my $i = 0;
 while ($i < scalar(@log_in)) {
-	unless ($log_in[$i] or $log_in[$i + 1]) {
+	if ($log_in[$i] eq "" && $log_in[$i + 1] eq "") {
 		splice(@log_in, $i, 1);
 		next;
         }