diff --git a/.gitignore b/.gitignore index ae2ad53..599a6ce 100644 --- a/.gitignore +++ b/.gitignore @@ -18,3 +18,7 @@ nytprof.out *.o *.bs /_eumm/ + +/ARCHIVE/ +/stuff/ +/Notes.txt diff --git a/Changes b/Changes index ef73a51..6469f57 100644 --- a/Changes +++ b/Changes @@ -1,5 +1,11 @@ Revision history for Perl extension Math::Random::MT::Auto. +- + - + +6.23 Tue Nov 27 03:12:07 2018 + - Fix for non-threaded Perl (rt.cpan.org #127809) + 6.22 Tue Sep 4 14:06:20 2012 - Enhancement to shuffle() to return an array diff --git a/MANIFEST b/MANIFEST index d984922..cf30f04 100644 --- a/MANIFEST +++ b/MANIFEST @@ -30,5 +30,3 @@ examples/erlang.pl examples/poisson.pl examples/binomial.pl examples/cards.pl -META.yml Module YAML meta-data (added by MakeMaker) -META.json Module JSON meta-data (added by MakeMaker) diff --git a/README b/README index 40bde92..96e1ba9 100644 --- a/README +++ b/README @@ -1,4 +1,4 @@ -Math-Random-MT-Auto version 6.22 +Math-Random-MT-Auto version 6.23 ================================ This module provides pseudorandom number generators (PRNGs) that are based diff --git a/README.md b/README.md index 079ee73..3ec67fb 100644 --- a/README.md +++ b/README.md @@ -1,2 +1,5 @@ # Math-Random-MT-Auto -The 'Math-Random-MT-Auto' module for Perl. +Pseudo-random number generators for Perl based on the Mersenne Twister algorithm. + +Detailed information regarding this module can be found on [MetaCPAN](https://metacpan.org/pod/Math::Random::MT::Auto). + diff --git a/lib/Math/Random/MT/Auto.pm b/lib/Math/Random/MT/Auto.pm index 147e7c0..36905a6 100644 --- a/lib/Math/Random/MT/Auto.pm +++ b/lib/Math/Random/MT/Auto.pm @@ -5,7 +5,7 @@ require 5.006; use strict; use warnings; -our $VERSION = '6.22'; +our $VERSION = '6.23'; my $XS_VERSION = $VERSION; $VERSION = eval $VERSION; @@ -644,7 +644,10 @@ sub _seed_prng :PRIVATE my $seed = $seed_for{$$prng}; # Get the seed for the PRNG - if ($threads::shared::threads_shared && threads::shared::_id($seed)) { + if ($Config::Config{'useithreads'} && + $threads::shared::threads_shared && + threads::shared::_id($seed)) + { # If the seed is thread-shared, then must make a non-shared copy to # send to the PRNG my @seed = @{$seed}; @@ -668,7 +671,7 @@ Math::Random::MT::Auto - Auto-seeded Mersenne Twister PRNGs =head1 VERSION -This documentation refers to Math::Random::MT::Auto version 6.22 +This documentation refers to Math::Random::MT::Auto version 6.23 =head1 SYNOPSIS @@ -1712,8 +1715,13 @@ L =head1 SEE ALSO -Math::Random::MT::Auto Discussion Forum on CPAN: -L +Math::Random::MT::Auto on MetaCPAN: +L + +Code repository: +L + +Sample code in the I directory of this distribution on CPAN. The Mersenne Twister is the (current) quintessential pseudorandom number generator. It is fast, and has a period of 2^19937 - 1. The Mersenne diff --git a/lib/Math/Random/MT/Auto/Range.pm b/lib/Math/Random/MT/Auto/Range.pm index a5a29d9..11fc2e8 100644 --- a/lib/Math/Random/MT/Auto/Range.pm +++ b/lib/Math/Random/MT/Auto/Range.pm @@ -3,7 +3,7 @@ package Math::Random::MT::Auto::Range; { use strict; use warnings; -our $VERSION = '6.22'; +our $VERSION = '6.23'; $VERSION = eval $VERSION; use Scalar::Util 1.18; diff --git a/t/99-pod.t b/t/99-pod.t index 37dad90..3ec2e18 100644 --- a/t/99-pod.t +++ b/t/99-pod.t @@ -55,7 +55,7 @@ SKIP: { } set_spell_cmd('aspell list --lang=en'); add_stopwords(); - pod_file_spelling_ok('lib/Math/Random/MT/Auto.pm', 'MRAM POD spelling'); + pod_file_spelling_ok('lib/Math/Random/MT/Auto.pm', 'MRMA POD spelling'); pod_file_spelling_ok('lib/Math/Random/MT/Auto/Range.pm', 'MRMA::Range POD spelling'); unlink("/home/$ENV{'USER'}/en.prepl", "/home/$ENV{'USER'}/en.pws"); } @@ -67,6 +67,7 @@ __DATA__ Cokus's FreeBSD Hedden +Cokus HotBits MSWin32 Makoto @@ -107,4 +108,5 @@ Arg PRNG's subclasses +MetaCPAN __END__