X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FTest-Leaner.git;a=blobdiff_plain;f=lib%2FTest%2FLeaner.pm;fp=lib%2FTest%2FLeaner.pm;h=b07fbcac25b8e29e9418b09f32bbcaaa3c465a6c;hp=2ada2039793d8fe96e4cf97a9bd6d61298491c6c;hb=bc94fb7770772cf212e7d3d4f6ef8a2cd69a290d;hpb=d5f69b6cc4f2193b93768f4a984d854a9dc7f9d4

diff --git a/lib/Test/Leaner.pm b/lib/Test/Leaner.pm
index 2ada203..b07fbca 100644
--- a/lib/Test/Leaner.pm
+++ b/lib/Test/Leaner.pm
@@ -408,10 +408,10 @@ sub ok ($;$) {
  ++$test;
 
  my $test_str = "ok $test";
- unless ($ok) {
+ $ok or do {
   $test_str   = "not $test_str";
   ++$failed;
- }
+ };
  if (defined $desc) {
   _sanitize_comment($desc);
   $test_str .= " - $desc" if length $desc;