X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F41-clone.t;h=c3c48223ed666c5d9760cb109ff186f8c3133ddd;hb=32bb19d839bff941751b0134ce2f99adefe550e0;hp=71e090f0419c3cce701882ac59d24bbd4da5e33b;hpb=db973b1268853452f82bd5e2daa220cdac7ecb8f;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/t/41-clone.t b/t/41-clone.t
index 71e090f..c3c4822 100644
--- a/t/41-clone.t
+++ b/t/41-clone.t
@@ -22,7 +22,10 @@ use Variable::Magic qw/wizard cast dispell getdata getsig VMG_THREADSAFE/;
 
 if (VMG_THREADSAFE) {
  plan tests => 3 + 2 * (2 * 8 + 2) + 2 * (2 * 5 + 2);
- diag 'This will leak a few scalars';
+ my $v = $threads::VERSION;
+ diag "Using threads $v" if defined $v;
+ $v = $threads::shared::VERSION;
+ diag "Using threads::shared $v" if defined $v;
 } else {
  plan skip_all => 'This Variable::Magic isn\'t thread safe';
 }