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

Update a few things for the new run

Browse source
This commit is contained in:
ryan 2017-07-25 13:18:11 -07:00
parent 24cce4989f
commit 83ac2c4dac
3 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lib/Module.pm
View file

@ -97,11 +97,15 @@ 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 --mirror http://cpan.simcop2387.info/ --showdeps|, $module); my @cmd = (qw|cpanm --quiet --showdeps|, $module);
$SIG{TERM}="ignore"; $SIG{TERM}="ignore";
my $out; my $out;
run \@cmd, '>&', \$out; my $ret = run \@cmd, '>&', \$out;
die "Failed to get 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)];
__save_cache; __save_cache;

BIN
modcache.stor Normal file
View file

Binary file not shown.

BIN
revdepcache.stor Normal file
View file

Binary file not shown.