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

diff --git a/lib/App/Rgit/Command/Each.pm b/lib/App/Rgit/Command/Each.pm
index 7996f3d..c042b71 100644
--- a/lib/App/Rgit/Command/Each.pm
+++ b/lib/App/Rgit/Command/Each.pm
@@ -44,11 +44,11 @@ sub run {
   $_->chdir or next;
   $status = $_->run($conf, @{$self->args});
   $code = $self->report($conf, $_, $status) 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;