# Test nested loadings
SKIP: {
- my $thr = spawn(sub {
+ my $parent = spawn(sub {
my $here = 'parent thread';
is_loaded 0, "$here, beginning";
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;
}
}