X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;ds=sidebyside;f=lib%2FTest%2FLeaner.pm;h=9e39fe570e61d745eb657348b79751318f86bdc7;hb=1303eb57577f22a6e056b6a237ce3b304c0d7299;hp=336bf31c3d56ca17a9712de6074b411adfc490a1;hpb=04fdbaf85a26eafd9d5d1e15c3ee46ef360de509;p=perl%2Fmodules%2FTest-Leaner.git

diff --git a/lib/Test/Leaner.pm b/lib/Test/Leaner.pm
index 336bf31..9e39fe5 100644
--- a/lib/Test/Leaner.pm
+++ b/lib/Test/Leaner.pm
@@ -143,6 +143,7 @@ sub import {
     push @imports, @{ $_[$i+1] };
     $splice  = 2;
    } elsif ($item eq 'no_diag') {
+    lock $plan if THREADSAFE;
     $no_diag = 1;
     $splice  = 1;
    }