X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FApp%2FRgit%2FCommand%2FEach.pm;h=3d2bcf80bb612bc4c6be069e32a7ed9df8be94a3;hb=9fa7664e0c86c59b5f9a2a03fa499c875722eaf0;hp=c042b71fa5f7ae56de1acab11089388c670e7f29;hpb=e5b5b7ba124d526f1e05c83723ee8a9a738e74e1;p=perl%2Fmodules%2Frgit.git diff --git a/lib/App/Rgit/Command/Each.pm b/lib/App/Rgit/Command/Each.pm index c042b71..3d2bcf8 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.04 =cut -our $VERSION = '0.03'; +our $VERSION = '0.04'; =head1 DESCRIPTION @@ -42,8 +42,8 @@ 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