X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F20-each.t;h=55e70855effbfc245c02258fa2632b0e77d06126;hb=313864be3ae1c0d2120b434ff18150c53f8b352e;hp=dfc139b629bd2cce5e538113b35d5b5c603aa988;hpb=84976874ba7cc16560a20dc013ac336fb5aec4b5;p=perl%2Fmodules%2Frgit.git

diff --git a/t/20-each.t b/t/20-each.t
index dfc139b..55e7085 100644
--- a/t/20-each.t
+++ b/t/20-each.t
@@ -103,8 +103,13 @@ sub try {
   policy => $policy,
  );
  isnt($ar, undef, "each $cmd has a defined object");
- my $exit = $ar->run;
+ my $exit;
  my $fail = $cmd eq 'FAIL' ? 1 : 0;
+ if ($fail) {
+  ($exit, undef) = $ar->run;
+ } else {
+  $exit = $ar->run;
+ }
  is($exit, $fail, "each $cmd returned $fail");
  my @lines = split /\n/, do { local $/; <$fh> };
  my $res = [ map [ split /\|/, $_ ], @lines ];