[carton] 12/472: Display errors and stops building carton.json

[Lucas Kanashiro]

This is an automated email from the git hooks/post-receive script.

kanashiro-guest pushed a commit to branch master
in repository carton.

commit 1e66bca1b4b31787d00c03f433a6d43dda36d930
Author: Tatsuhiko Miyagawa <miyagawa at bulknews.net>
Date:   Fri Jun 24 19:04:10 2011 -0700

    Display errors and stops building carton.json
---
 lib/App/Carton.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/lib/App/Carton.pm b/lib/App/Carton.pm
index a573851..cb7796a 100644
--- a/lib/App/Carton.pm
+++ b/lib/App/Carton.pm
@@ -131,12 +131,14 @@ sub mtime {
 
 sub install_from_build_file {
     my($self, $file) = @_;
-    $self->run_cpanm("--installdeps", ".");
+    $self->run_cpanm("--installdeps", ".")
+        or $self->error("Installing modules failed\n");
 }
 
 sub install_modules {
     my($self, @args) = @_;
-    $self->run_cpanm(@args);
+    $self->run_cpanm(@args)
+        or $self->error("Installing modules failed\n");
 }
 
 sub install_from_spec {
@@ -238,7 +240,7 @@ sub cmd_exec {
 
 sub run_cpanm {
     my($self, @args) = @_;
-    system $self->{cpanm}, "--notest", "--reinstall", "-L", $self->{path}, @args;
+    !system $self->{cpanm}, "--notest", "--reinstall", "-L", $self->{path}, @args;
 }
 
 sub parse_json {

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/carton.git