From 0fc9a057b35deed1e4f31cbcbe2758f7863b1d33 Mon Sep 17 00:00:00 2001
From: in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>
Date: Mon, 2 Jun 2003 14:59:09 +0000
Subject: fix bug

git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@924 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
---
 blog/blog.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/blog/blog.pl b/blog/blog.pl
index ab8b4aa9..5e4f411d 100755
--- a/blog/blog.pl
+++ b/blog/blog.pl
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: blog.pl,v 1.15 2003/06/02 05:34:57 in2 Exp $
+# $Id: blog.pl,v 1.16 2003/06/02 14:59:09 in2 Exp $
 use CGI qw/:standard/;
 use lib qw/./;
 use LocalVars;
@@ -64,7 +64,7 @@ sub main
 	my($ptr, $i);
 	for( $ptr = $article{last}, $i = 0 ;
 	     $ptr && $i < $1               ;
-	     $ptr = $article{"$ptr.prev"}    ){
+	     $ptr = $article{"$ptr.prev"}, ++$i    ){
 	    AddArticle('blog', $attr{"$fn.loadBlogFields"},
 		       $ptr);
 	}
-- 
cgit v1.2.3