From 322eb933f1260616960353341b01207866fde260 Mon Sep 17 00:00:00 2001
From: hylom <hylom@users.sourceforge.jp>
Date: Thu, 23 Mar 2017 21:51:32 +0900
Subject: [PATCH] Model::Comments: fix a problem select() can returns up to 10
 results

---
 src/newslash_web/lib/Newslash/Model/Comments.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/newslash_web/lib/Newslash/Model/Comments.pm b/src/newslash_web/lib/Newslash/Model/Comments.pm
index 36e24c89..a087bd7f 100644
--- a/src/newslash_web/lib/Newslash/Model/Comments.pm
+++ b/src/newslash_web/lib/Newslash/Model/Comments.pm
@@ -84,7 +84,8 @@ sub select {
     if (@$limit_values) {
         push @values, @$limit_values;
     }
-    $limit_clause = "LIMIT 10" if !$limit_clause;
+    # TODO: give reasonable LIMIT Value...
+    $limit_clause = "LIMIT 1000" if !$limit_clause;
 
     my $dbh = $self->connect_db;
 
-- 
2.11.0