axiombox / planetalinux forked from damog/planetalinux

#!/usr/bin/perl
 
use strict;
use warnings;
 
$ENV{'PERL_MM_USE_DEFAULT'} = 1; # for non-prompting
 
use CPAN;
 
die "You better run this bitch under perl 5.10 or newer.\n"
  unless $] >= 5.010;
 
die "You better run this as root.\n"
	unless $< == 0;
 
my $modules = [qw!
	App::Cmd
	App::PPBuild
	Config::IniFiles
	Data::Validate::Email
	DateTime
	File::MimeInfo::Simple
	File::Path
	Modern::Perl
	Module::Build
	Net::Domain::ES::ccTLD
	Template
	WebService::Validator::Feed::W3C
	YAML::Syck
!];
 
for my $m (@$modules) {
	CPAN::Shell->rematein("notest", "install", "$m");
	# CPAN::Shell->install( $m );
}
 
# after that...
print ".. testing loading modules...\n";
 
for my $m (@$modules) {
	print "- $m\n";
	eval "require $m";
	die $@ if $@;
}
 
print "\n.. done. enjoy :)\n";
print "\n.. please make sure you have PerlMagick installed.\n";
print ".. the recommended way is: `port install p5-perlmagick` in Mac,\n";
print ".. ..or 'aptitude install perlmagick' in Debian/Ubuntu.\n\n";