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

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 ];