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

Pointed at my own cpan mirror to avoid fucking with others

Browse source
This commit is contained in:
Ryan Voots 2017-03-30 00:35:26 -04:00
parent cd26a5d585
commit 093af1bee1
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
run.pl
View file

@ -5,6 +5,7 @@ package Module;
use Moose;
use Module::CoreList;
use Storable;
use IPC::Run qw/run/;
has 'name' => (is => 'ro');
has 'version' => (is => 'ro');
@ -59,9 +60,12 @@ sub get_deps {
# skip perl, or core modules
return [] if _is_core($module);
open(my $ph, "-|", qw/cpanm --quiet --showdeps/, $module);
my @cmd = (qw|cpanm --quiet --mirror http://cpan.simcop2387.info/ --showdeps|, $module);
return [map {Module->new_module($_)} grep {!_is_core($_)} <$ph>];
my $out;
run \@cmd, '>&', \$out;
return [map {Module->new_module($_)} grep {!_is_core($_)} split($/, $out)];
}
sub print_deps {
@ -153,7 +157,7 @@ sub run_cpanm {
my ($module, $incstatus) = @_;
$ENV{PERL_USE_UNSAFE_INC} = !!$incstatus;
my @cmd = (qw/perlbrew exec --with/, $opt_perlbrew_env, qw/cpanm --reinstall --verbose/, $module);
my @cmd = (qw/perlbrew exec --with/, $opt_perlbrew_env, qw|cpanm --reinstall --verbose --mirror http://cpan.simcop2387.info/ |, $module);
my $out;
run \@cmd, '>&', \$out;