X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FTest-Leaner.git;a=blobdiff_plain;f=lib%2FTest%2FLeaner.pm;h=dfba80f1505119d9e795865661fbe6264413b0fb;hp=4f5327580106e339ac8b87566805459544aa6d52;hb=05ec570604d429eac0e547d95e6865e8c5751d7b;hpb=3f7bd7950bb41e09b5ea6e0896e280d57e521913

diff --git a/lib/Test/Leaner.pm b/lib/Test/Leaner.pm
index 4f53275..dfba80f 100644
--- a/lib/Test/Leaner.pm
+++ b/lib/Test/Leaner.pm
@@ -183,6 +183,8 @@ sub skip {
  }
 
  for (1 .. $count) {
+  ++$test;
+
   my $skip_str = "ok $test # skip";
   if (defined $reason) {
    sanitize_comment($reason);
@@ -191,8 +193,6 @@ sub skip {
 
   local $\;
   print $TAP_STREAM "$skip_str\n";
-
-  $test++;
  }
 
  no warnings 'exiting';