Skip to content
Browse files

More details... more stuff.... i dont know what to write here, noone …

…will read it anyway
  • Loading branch information...
1 parent 129bc8f commit c4698b9602bafbb80e7539dfb7c3d962f4978c4f @Getty Getty committed Mar 15, 2012
Showing with 6 additions and 6 deletions.
  1. +6 −6 install.pl
View
12 install.pl
@@ -47,14 +47,13 @@
my $_cpanm;
my $_cpanm_filename;
-my $locallib = $ENV{PERL_LOCAL_LIB_ROOT};
my $set_locallib;
-if ($locallib) {
+if ($ENV{PERL_LOCAL_LIB_ROOT} || $ENV{PERL_MM_OPT} || $ENV{PERL_MB_OPT}) {
- print_text("Found running local::lib on ".$locallib);
+ print_text("Found running local::lib...");
-} else {
+} elsif (!defined $ENV{PERLBREW_PATH}) {
$set_locallib = $ENV{HOME}.'/perl5';
print_text(
@@ -103,10 +102,10 @@
}
-unless ($ENV{PERL_LOCAL_LIB_ROOT} || $ENV{PERLBREW_PATH}) {
+unless ($ENV{PERL_LOCAL_LIB_ROOT} || $ENV{PERL_MM_OPT} || $ENV{PERL_MB_OPT} || $ENV{PERLBREW_PATH}) {
print_text(
"============================================================",
- "local::lib (or perlbrew) is not active, if you just have installed it, please relogin to your account and just start this installer again like you did now!",
+ "local::lib (or perlbrew) is not active. If you ran this script for the first time, please now re-login to your user account and run it again!",
"",
);
exit 1;
@@ -126,6 +125,7 @@
"",
);
+cpanminus_install_error() if (system('cpanm Module::Finder Module::Extract::VERSION'));
cpanminus_install_error() if (system('cpanm -n namespace::autoclean Moose'));
cpanminus_install_error() if (system('cpanm NANIS/Crypt-SSLeay-0.59_03.tar.gz'));
cpanminus_install_error() if (system('cpanm App::DuckPAN'));

0 comments on commit c4698b9

Please sign in to comment.
Something went wrong with that request. Please try again.