From d935d9c0ece488531e9f73d45207f286fd9dd890 Mon Sep 17 00:00:00 2001
From: Edmund von der Burg <evdb@mysociety.org>
Date: Sat, 12 Mar 2011 18:36:58 +0000
Subject: bug fixes

---
 perl-external/bin/module-manage.pl | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

(limited to 'perl-external')

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;
 }
 
-- 
cgit v1.2.3