stabile/support/bootstrapper/support/install_cpan_modules.pl @ master
| 1 |
#!/usr/bin/perl
|
|---|---|
| 2 |
|
| 3 |
my $perlmodules_file = '/usr/share/stabile/cpan_modules'; |
| 4 |
open(my $pm_fh, '<', $perlmodules_file) or die $!; |
| 5 |
my @cpan_modules = <$pm_fh>; |
| 6 |
close($pm_fh); |
| 7 |
|
| 8 |
chomp(@cpan_modules); |
| 9 |
|
| 10 |
foreach my $pack(@cpan_modules) { |
| 11 |
my $cmd = "PERL_MM_USE_DEFAULT=1 perl -MCPAN -e 'install $pack'"; |
| 12 |
print $cmd . "\n"; |
| 13 |
|
| 14 |
# Run command and continue if successfull, else return error.
|
| 15 |
my $ret = system($cmd); |
| 16 |
|
| 17 |
if($ret != 0 ) { |
| 18 |
print "Got an error: $ret\n"; |
| 19 |
}
|
| 20 |
}
|