diff options
author | Edmund von der Burg <evdb@mysociety.org> | 2011-05-19 17:39:20 +0100 |
---|---|---|
committer | Edmund von der Burg <evdb@mysociety.org> | 2011-05-19 17:39:20 +0100 |
commit | 32c338ec4a216878fda62c55a5070a6d63734127 (patch) | |
tree | 885b1c9118f1b88e353e20195344ef207ea88169 /perl-external | |
parent | 5be2b2317e83603e613741899fa8b0e89397127d (diff) |
produce helpful output
Diffstat (limited to 'perl-external')
-rwxr-xr-x | perl-external/bin/module-manage.pl | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/perl-external/bin/module-manage.pl b/perl-external/bin/module-manage.pl index e810dd95c..fb17841e5 100755 --- a/perl-external/bin/module-manage.pl +++ b/perl-external/bin/module-manage.pl @@ -55,17 +55,9 @@ sub add { my $out = ''; my $cmd = "cpanm --reinstall --save-dists $minicpan $module"; - # print " running '$cmd'\n"; - run3( $cmd, undef, \$out, \$out ) + run3( $cmd, undef, undef, undef ) || die "Error running '$cmd'"; - if ( $out =~ m{FAIL} ) { - die "\n\n\n" - . "ERROR: Something did not build correctly" - . " - please see ~/.cpanm/build_log for details" - . "\n\n\n"; - } - write_file( $module_list, { append => 1 }, "$module\n" ); index_minicpan(); |