From 1c53df8714733a4c5445dc148075138f270a1ec0 Mon Sep 17 00:00:00 2001
From: Gabor Szabo <szabgab@gmail.com>
Date: Fri, 21 Dec 2012 20:40:40 +0200
Subject: [PATCH] process full feed

---
 bin/dependencies.pl | 18 +++++++++++-------
 1 file changed, 11 insertions(+), 7 deletions(-)

diff --git a/bin/dependencies.pl b/bin/dependencies.pl
index a1bdf89..568c831 100644
--- a/bin/dependencies.pl
+++ b/bin/dependencies.pl
@@ -33,7 +33,7 @@
 
 foreach my $name (sort keys %modules) {
     next if $data->{modules}{$name} and not $opt{update}; #already collected
-    process_module('Pod::Escapes');
+    process_module($name);
 
     #my $module   = $mcpan->module( $name );
     #my $dist     = $mcpan->release( distribution => $module->{distribution} );
@@ -62,12 +62,16 @@ sub process_distro {
     say STDERR "Processing distro $name";
 
     try {
-        my $r = $mcpan->fetch( 'release/_search',
-            q => 'distribution:Test-Simple AND status:latest',
-            size => 1,
-            fields => 'distribution,dependency,version,dowload_url', # license,archive
-        );
-        $data->{distros}{$name} = $r->{hits}{hits}[0]{fields};
+        #my $r = $mcpan->fetch( 'release/_search',
+        #    q => 'distribution:Test-Simple AND status:latest',
+        #    size => 1,
+        #    fields => 'distribution,dependency,version,dowload_url', # license,archive
+        #);
+        #$data->{distros}{$name} = $r->{hits}{hits}[0]{fields};
+        my $r = $mcpan->release( distribution => $name );
+        for my $field (qw(distribution dependency version dowload_url)) { # license,archive
+            $data->{distros}{$name}{$field} = $r->{$field};
+        }
     } catch {
         warn "Exception: $_";
     };