diff options
author | Edmund von der Burg <evdb@mysociety.org> | 2011-03-12 18:36:58 +0000 |
---|---|---|
committer | Edmund von der Burg <evdb@mysociety.org> | 2011-03-12 18:36:58 +0000 |
commit | d935d9c0ece488531e9f73d45207f286fd9dd890 (patch) | |
tree | 899d9a37241b82a8efb9e9d9e30fdcb33a65e849 /perl-external | |
parent | 7a849e92e033bfd03f4a75a57dd657da2c772177 (diff) |
bug fixes
Diffstat (limited to 'perl-external')
-rwxr-xr-x | perl-external/bin/module-manage.pl | 11 |
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; } |