1 |
commit: f1aad2cfb0e119e0af0d02685e5e56501a9be794 |
2 |
Author: Kent Fredric <kentfredric <AT> gmail <DOT> com> |
3 |
AuthorDate: Fri Apr 6 15:53:15 2012 +0000 |
4 |
Commit: Kent Fredric <kentfredric <AT> gmail <DOT> com> |
5 |
CommitDate: Fri Apr 6 15:53:15 2012 +0000 |
6 |
URL: http://git.overlays.gentoo.org/gitweb/?p=proj/perl-overlay.git;a=commit;h=f1aad2cf |
7 |
|
8 |
[scripts] Reduce size limit to 5000, as its upstreams maximum |
9 |
|
10 |
--- |
11 |
scripts/lib/metacpan.pm | 2 +- |
12 |
scripts/package_log.pl | 2 +- |
13 |
2 files changed, 2 insertions(+), 2 deletions(-) |
14 |
|
15 |
diff --git a/scripts/lib/metacpan.pm b/scripts/lib/metacpan.pm |
16 |
index ccc267a..f3191ef 100644 |
17 |
--- a/scripts/lib/metacpan.pm |
18 |
+++ b/scripts/lib/metacpan.pm |
19 |
@@ -126,7 +126,7 @@ sub find_dist_all { |
20 |
), |
21 |
{ 'file.date' => 'desc' }, |
22 |
], |
23 |
- size => 9999, |
24 |
+ size => 5000, |
25 |
}; |
26 |
|
27 |
if ( not defined $opts->{method} |
28 |
|
29 |
diff --git a/scripts/package_log.pl b/scripts/package_log.pl |
30 |
index 0528d93..34f4934 100755 |
31 |
--- a/scripts/package_log.pl |
32 |
+++ b/scripts/package_log.pl |
33 |
@@ -92,7 +92,7 @@ $search->{sort} = [ |
34 |
# { 'author' => 'asc', }, |
35 |
{ 'date' => 'desc', }, |
36 |
]; |
37 |
-$search->{size} = 10000; |
38 |
+$search->{size} = 5000; |
39 |
|
40 |
$search->{fields} = [qw( author name date distribution version )]; |