Add retries to cpan deps

lib/Module.pm

@@ -97,14 +97,19 @@ sub get_deps {
     return [] if _is_banned($module);
 
     print "Getting deps for $module\n";
+
+    my $out;
+    my $ret;
+    for my $tries (1..3) {
 	my @cmd = (qw|cpanm --quiet --showdeps|, $module);
 
 	$SIG{TERM}="ignore";
-    my $out;
-    my $ret = run \@cmd, '>&', \$out;
-
-    die "Failed to get deps for $module: $?" unless $ret;
+    	$ret = run \@cmd, '>&', \$out;
 
+	warn "Failed to get deps for $module: $?" unless $ret;
+	last if ($ret);
+    }
+    die "FATAL: no deps for $module" unless $ret;
 
 
     my $deps = [map {Module->new_module($_)} grep {!_is_core($_)} grep {defined $_ && $_ !~ /^\s*$/} split($/, $out)];