Hi,
We are hitting a strange issue within our stack and `$threads::shared::threads_shared ` (see the attachment) variable somehow gets defined and causing the next function call to be triggered, which in turn dies on non-threaded perl.
We are not sure what is causing this to happen but perhaps it is better to check something like below in there:
use Config;
if ($Config{usethreads} && threads::shared::_id($seed)) {
or even
if ($Config{usethreads} && $threads::shared::threads_shared && threads::shared::_id($seed)) {
| Subject: | disable-threads.txt |
diff -ru --new-file Math-Random-MT-Auto-6.22/lib/Math/Random/MT/Auto.pm Math-Random-MT-Auto-6.22-new/lib/Math/Random/MT/Auto.pm
--- Math-Random-MT-Auto-6.22/lib/Math/Random/MT/Auto.pm 2012-09-04 16:06:22.000000000 +0200
+++ Math-Random-MT-Auto-6.22-new/lib/Math/Random/MT/Auto.pm 2018-11-22 14:20:35.891056664 +0100
@@ -644,7 +644,8 @@
my $seed = $seed_for{$$prng}; # Get the seed for the PRNG
- if ($threads::shared::threads_shared && threads::shared::_id($seed)) {
+ if (0 && $threads::shared::threads_shared && threads::shared::_id($seed)) {