X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FApp%2FRgit%2FCommand%2FEach.pm;h=3dec2fbe642566151f9b86ef44eb3f827b007fa1;hb=c86be01d791b2919e100f9a7357597dfdfe1e273;hp=7996f3d1795f515ad3f9057368f1128c95f06f73;hpb=e267749b5294c865fa9584c6f15bb0af85e24e30;p=perl%2Fmodules%2Frgit.git

diff --git a/lib/App/Rgit/Command/Each.pm b/lib/App/Rgit/Command/Each.pm
index 7996f3d..3dec2fb 100644
--- a/lib/App/Rgit/Command/Each.pm
+++ b/lib/App/Rgit/Command/Each.pm
@@ -13,11 +13,11 @@ App::Rgit::Command::Each - Class for commands to execute for each repository.
 
 =head1 VERSION
 
-Version 0.03
+Version 0.05
 
 =cut
 
-our $VERSION = '0.03';
+our $VERSION = '0.05';
 
 =head1 DESCRIPTION
 
@@ -42,13 +42,13 @@ sub run {
  my $code;
  for (@{$conf->repos}) {
   $_->chdir or next;
-  $status = $_->run($conf, @{$self->args});
-  $code = $self->report($conf, $_, $status) unless defined $code;
+  ($status, my $signal) = $_->run($conf, @{$self->args});
+  $code = $self->report($conf, $_, $status, $signal) unless defined $code;
+  last if $code & LAST;
   if ($code & REDO) {
    undef $code; # Don't save it, that would be very dumb
    redo;
   }
-  last if $code & LAST;
   undef $code unless $code & SAVE;
  }
  $conf->cwd_repo->chdir;
@@ -77,7 +77,7 @@ You can find documentation for this module with the perldoc command.
 
 =head1 COPYRIGHT & LICENSE
 
-Copyright 2008 Vincent Pit, all rights reserved.
+Copyright 2008-2009 Vincent Pit, all rights reserved.
 
 This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.