X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FVariable-Magic.git;a=blobdiff_plain;f=t%2F09-load-threads.t;h=6919eef77c4f6493e2e77cbc1c275a547e7fc9da;hp=b7b7dff199cc4799a39a06b65c1093e710dd9200;hb=5125ae0237f747fcb1a763d2ac70a64913b5ec50;hpb=6b6230fb9d11ea82ed446c666b4272ad979b900b

diff --git a/t/09-load-threads.t b/t/09-load-threads.t
index b7b7dff..6919eef 100644
--- a/t/09-load-threads.t
+++ b/t/09-load-threads.t
@@ -112,7 +112,7 @@ is_loaded 0, 'main body, after serial loadings';
 # Test nested loadings
 
 SKIP: {
- my $thr = spawn(sub {
+ my $parent = spawn(sub {
   my $here = 'parent thread';
   is_loaded 0, "$here, beginning";
 
@@ -143,10 +143,11 @@ SKIP: {
   return;
  });
 
- skip "$could_not_create_thread (nested parent)" => (3 + 2) unless defined $thr;
+ skip "$could_not_create_thread (nested parent)" => (3 + 2)
+                                                         unless defined $parent;
 
- $thr->join;
- if (my $err = $thr->error) {
+ $parent->join;
+ if (my $err = $parent->error) {
   die $err;
  }
 }