Preserve functionality

Let's not forget older Perl, non-threads.
marioroy · Jun 8, 2024 · 50f29b0 · 50f29b0
1 parent dc32cfd
commit 50f29b0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/MCE.pm b/lib/MCE.pm
@@ -2049,7 +2049,7 @@ sub _dispatch {
       my $_wid  = $_args[1];
       my $_seed = abs($self->{_seed} - ($_wid * 100000)) % 2147483560;
 
-      CORE::srand($_seed) if ($] ge '5.020000'); # drand48
+      CORE::srand($_seed) if (!$self->{use_threads} || $] ge '5.020000'); # drand48
       Math::Prime::Util::srand($_seed) if $INC{'Math/Prime/Util.pm'};
 
       if (!$self->{use_threads}) {