simcop2387/treedeps
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Add retries to cpan deps

Browse source
This commit is contained in:
ryan 2017-07-25 13:38:38 -07:00
parent 83ac2c4dac
commit f2969f6975
2 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lib/Module.pm
View file

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

BIN
modcache.stor
View file

Binary file not shown.