diff --git a/lib/Module.pm b/lib/Module.pm index eaad27c..7cae5ff 100755 --- a/lib/Module.pm +++ b/lib/Module.pm @@ -97,11 +97,15 @@ sub get_deps { return [] if _is_banned($module); 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"; 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)]; __save_cache; diff --git a/modcache.stor b/modcache.stor new file mode 100644 index 0000000..6fdf267 Binary files /dev/null and b/modcache.stor differ diff --git a/revdepcache.stor b/revdepcache.stor new file mode 100644 index 0000000..88a199c Binary files /dev/null and b/revdepcache.stor differ