use Thread::Cleanup;
+diag "Using threads $threads::VERSION";
+diag "Using threads::shared $threads::shared::VERSION";
+
my %called : shared;
my %nums : shared;
$thr;
} 0 .. 4;
-diag "Using threads $threads::VERSION";
-diag "Using threads::shared $threads::shared::VERSION";
-
$_->join for @t;
is $x, -1, '$x in the main thread';
use Thread::Cleanup;
+diag "Using threads $threads::VERSION";
+diag "Using threads::shared $threads::shared::VERSION";
+
my %called : shared;
my %nums : shared;
$thr;
} 0 .. 4;
-diag "Using threads $threads::VERSION";
-diag "Using threads::shared $threads::shared::VERSION";
-
$_->detach for @t;
sleep 2;