aboutsummaryrefslogtreecommitdiffstats
path: root/perl-external
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 /perl-external
parent7a849e92e033bfd03f4a75a57dd657da2c772177 (diff)
bug fixes
Diffstat (limited to 'perl-external')
-rwxr-xr-xperl-external/bin/module-manage.pl11
1 files changed, 9 insertions, 2 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;
}