X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FRingBuf.pm;h=e9b1052a92f8e42566b02b91aa608c6cd69c7116;hp=82b534e41d2081887c4cee814cade8dee0a4286a;hb=34df1a6ec232291fbe6cb572e9b110795db7d45c;hpb=57ffea56da4d81eb107872ae3ff30ea039f77882

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);
 }