===================================================================
RCS file: /cvs/openbsd/OpenBSDTorrents/ServerTorrents.pl,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -r1.12 -r1.13
--- openbsd/OpenBSDTorrents/ServerTorrents.pl	2005/05/02 21:28:37	1.12
+++ openbsd/OpenBSDTorrents/ServerTorrents.pl	2005/05/05 18:48:19	1.13
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -T
-#$Id: ServerTorrents.pl,v 1.12 2005/05/02 20:28:37 andrew Exp $
+#$Id: ServerTorrents.pl,v 1.13 2005/05/05 17:48:19 andrew Exp $
 use strict;
 use warnings;
 use diagnostics;
@@ -125,7 +125,7 @@
 
 	my $size = $t->total_size;
 
-	my $i;
+	my $i = 0;
 	while ($size > 1024) {
 		$size /= 1024;
 		$i++;