[gentoo-commits] proj/perl-overlay:master commit in: scripts/, scripts/lib/

["Kent Fredric" <kentfredric@gmail.com>]

commit:     f1aad2cfb0e119e0af0d02685e5e56501a9be794
Author:     Kent Fredric <kentfredric <AT> gmail <DOT> com>
AuthorDate: Fri Apr  6 15:53:15 2012 +0000
Commit:     Kent Fredric <kentfredric <AT> gmail <DOT> com>
CommitDate: Fri Apr  6 15:53:15 2012 +0000
URL:        http://git.overlays.gentoo.org/gitweb/?p=proj/perl-overlay.git;a=commit;h=f1aad2cf

[scripts] Reduce size limit to 5000, as its upstreams maximum

---
 scripts/lib/metacpan.pm |    2 +-
 scripts/package_log.pl  |    2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/scripts/lib/metacpan.pm b/scripts/lib/metacpan.pm
index ccc267a..f3191ef 100644
--- a/scripts/lib/metacpan.pm
+++ b/scripts/lib/metacpan.pm
@@ -126,7 +126,7 @@ sub find_dist_all {
       ),
       { 'file.date' => 'desc' },
     ],
-    size => 9999,
+    size => 5000,
   };
 
   if ( not defined $opts->{method}

diff --git a/scripts/package_log.pl b/scripts/package_log.pl
index 0528d93..34f4934 100755
--- a/scripts/package_log.pl
+++ b/scripts/package_log.pl
@@ -92,7 +92,7 @@ $search->{sort} = [
   #   { 'author' => 'asc', },
   { 'date' => 'desc', },
 ];
-$search->{size} = 10000;
+$search->{size} = 5000;
 
 $search->{fields} = [qw( author name date distribution version )];