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

diff --git a/t/09-load-threads.t b/t/09-load-threads.t
index b7b7dff199cc4799a39a06b65c1093e710dd9200..6919eef77c4f6493e2e77cbc1c275a547e7fc9da 100644 (file)
--- 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;
  }
 }