aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEdmund von der Burg <evdb@mysociety.org>2011-03-12 18:36:58 +0000
committerEdmund von der Burg <evdb@mysociety.org>2011-03-12 18:36:58 +0000
commitd935d9c0ece488531e9f73d45207f286fd9dd890 (patch)
tree899d9a37241b82a8efb9e9d9e30fdcb33a65e849
parent7a849e92e033bfd03f4a75a57dd657da2c772177 (diff)
bug fixes
-rwxr-xr-xperl-external/bin/module-manage.pl11
-rwxr-xr-xsetenv.pl5
2 files changed, 12 insertions, 4 deletions
diff --git a/perl-external/bin/module-manage.pl b/perl-external/bin/module-manage.pl
index 707e6db8b..26fa09258 100755
--- a/perl-external/bin/module-manage.pl
+++ b/perl-external/bin/module-manage.pl
@@ -67,6 +67,13 @@ sub add {
fetch_all();
index_minicpan();
+
+ if ( $out =~ m{FAIL} ) {
+ die "\n\n\n"
+ . "ERROR: Something did not build correctly"
+ . " - please see ~/.cpanm/build_log for details"
+ . "\n\n\n";
+ }
}
sub index_minicpan {
@@ -82,7 +89,7 @@ sub index_minicpan {
}
sub build_all {
- my @modules = sort uniq read_file($module_list);
+ my @modules = sort uniq map { s{\s+$}{}; $_; } read_file($module_list);
build($_) for @modules;
}
@@ -111,7 +118,7 @@ sub build {
}
sub fetch_all {
- my @urls = sort uniq read_file($url_list);
+ my @urls = sort uniq map { s{\s+$}{}; $_; } read_file($url_list);
fetch($_) for @urls;
}
diff --git a/setenv.pl b/setenv.pl
index ffa45c9d4..1db2666d8 100755
--- a/setenv.pl
+++ b/setenv.pl
@@ -16,8 +16,9 @@ use local::lib "$FindBin::Bin/perl-external";
use local::lib "$FindBin::Bin/perl-external/local-lib";
# add the local perllibs too
-use lib "$FindBin::Bin/commonlib/perllib";
-use lib "$FindBin::Bin/perllib";
+for ( "$FindBin::Bin/commonlib/perllib", "$FindBin::Bin/perllib" ) {
+ $ENV{PERL5LIB} = "$_:$ENV{PERL5LIB}";
+}
# also set the path to our scripts etc
$ENV{PATH} = join ':', uniq "$FindBin::Bin/bin", split( m/:/, $ENV{PATH} );