From d30f018b751cb8d51a5599ac977ecb2e54c32099 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Wed, 18 Jan 2006 11:17:35 +0000
Subject: [PATCH] fix spurious line from previous year in sh/ann

---
 Changes         | 2 ++
 perl/RingBuf.pm | 7 ++-----
 2 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/Changes b/Changes
index e9872d2e..e2c01571 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+18Jan06=======================================================================
+1. Fix spurious announce from previous year appearing in sh/ann.
 15Jan06=======================================================================
 1. Fix some obviously long standing problems with create_sysop.pl and also
 with initialising the User file.
diff --git a/perl/RingBuf.pm b/perl/RingBuf.pm
index e9b1052a..b55c19aa 100644
--- a/perl/RingBuf.pm
+++ b/perl/RingBuf.pm
@@ -28,7 +28,7 @@ sub new
 	# 3 - start
 	# 4 - pos
 	# 5 - buffer []
-	return bless [$size, 0, 0, 0, 0, []], (ref $pkg || $pkg);
+	return bless [$size+1, 0, 0, 0, 0, []], (ref $pkg || $pkg);
 }
 
 sub write
@@ -37,10 +37,7 @@ sub write
 
 	$self->[5]->[$self->[2]++] = shift;
 	$self->[2] = 0 if $self->[2] >= $self->[0];
-	if ($self->[1] < $self->[0]) {
-		$self->[1] = ++$self->[1];
-	}
-	$self->[2] = $self->[2];
+	$self->[1]++ if $self->[1] < $self->[0];
 	if ($self->[1] == $self->[0] && $self->[2] == $self->[3]) {
 		$self->[3] = $self->[2]+1;
 		$self->[3] = 0 if $self->[3] >= $self->[0]; 
-- 
2.34.1