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

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

commit:     7263e878fa21e0e29186e1586f2dd3fd255d1e3d
Author:     Kent Fredric <kentfredric <AT> gmail <DOT> com>
AuthorDate: Mon Apr  9 15:29:26 2012 +0000
Commit:     Kent Fredric <kentfredric <AT> gmail <DOT> com>
CommitDate: Mon Apr  9 15:29:26 2012 +0000
URL:        http://git.overlays.gentoo.org/gitweb/?p=proj/perl-overlay.git;a=commit;h=7263e878

[scripts] Turn on GZIP encoding to make package_map_all faster

---
 scripts/package_map_all.pl |   14 +++++++++-----
 1 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/scripts/package_map_all.pl b/scripts/package_map_all.pl
index a22355b..8b37bd2 100755
--- a/scripts/package_map_all.pl
+++ b/scripts/package_map_all.pl
@@ -33,8 +33,6 @@ my $size = 300;
 my $metadata = $root->subdir( 'metadata', 'perl' );
 my $distmap = $metadata->subdir('distmap');
 
-#my $distinfo = $metadata->subdir('distinfo');
-$distinfo->mkpath();
 my (@json_files) = grep { not $_->is_dir and $_->basename =~ /\.json$/ } $distmap->children();
 
 use JSON;
@@ -90,7 +88,10 @@ $ENV{WWW_MECH_NOCACHE} = 1;
 my $results_string = mcpan->ua->request(
   'POST',
   mcpan->base_url . 'release/_search?search_type=scan&scroll=30s&size=' . $size,
-  { content => $encoder->encode($search), }
+  {
+    headers => { 'Accept-Encoding' => 'gzip', },
+    content => $encoder->encode($search),
+  }
 );
 
 say $results_string->{content};
@@ -125,8 +126,11 @@ exit 0;
 
 sub scroll {
   my ($id) = @_;
-  my $result =
-    mcpan->ua->request( 'GET', 'http://api.metacpan.org/_search/scroll/?scroll=30s&size=' . $size . '&scroll_id=' . $id );
+  my $result = mcpan->ua->request(
+    'GET',
+    'http://api.metacpan.org/_search/scroll/?scroll=30s&size=' . $size . '&scroll_id=' . $id,
+    { headers => { 'Accept-Encoding' => 'gzip', } }
+  );
 
   my $data = $decoder->decode( $result->{content} );
   return $data, $data->{_scroll_id};