X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=blobdiff_plain;f=t%2F21-bad-use.t;h=dc2ca5af92c1e00a3f840b1587400ca879b429b3;hp=5993d246d55e1cd214f009e2742d1229eb56c042;hb=ea6d668ecc82cbd3be1f1beb8cc5e9599f3fae10;hpb=2f6320d18a05f68146184ff2d27475871b803288

diff --git a/t/21-bad-use.t b/t/21-bad-use.t
index 5993d24..dc2ca5a 100644
--- a/t/21-bad-use.t
+++ b/t/21-bad-use.t
@@ -26,6 +26,7 @@ unless ($success) {
  diag $stderr;
  diag "Failed to execute data file (error $err_code)";
  fail "Couldn't run test $_" for 1 .. $total + 1;
+ exit $total + 1;
 }
 
 my %fail;