From: Vincent Pit <vince@profvince.com>
Date: Thu, 16 Apr 2015 19:25:49 +0000 (-0300)
Subject: Rename a variable in t/09-load-threads.t
X-Git-Tag: v0.57~1
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FVariable-Magic.git;a=commitdiff_plain;h=5125ae0237f747fcb1a763d2ac70a64913b5ec50

Rename a variable in t/09-load-threads.t
---

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;
  }
 }