From: minima <minima>
Date: Sun, 15 Jan 2006 20:19:50 +0000 (+0000)
Subject: comment up the array slots
X-Git-Tag: 1.54~147
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=34df1a6ec232291fbe6cb572e9b110795db7d45c

comment up the array slots
---

diff --git a/perl/RingBuf.pm b/perl/RingBuf.pm
index 82b534e4..e9b1052a 100644
--- a/perl/RingBuf.pm
+++ b/perl/RingBuf.pm
@@ -21,6 +21,13 @@ sub new
 {
 	my $pkg = shift;
 	my $size = shift;
+
+	# 0 - size
+	# 1 - lth
+	# 2 - end
+	# 3 - start
+	# 4 - pos
+	# 5 - buffer []
 	return bless [$size, 0, 0, 0, 0, []], (ref $pkg || $pkg);
 }