From: Roland Mas <roland.mas@entierement.net>
Date: Wed, 5 Apr 2023 12:25:05 +0200
Subject: Use Math::Random::Free instead of Math::Random

---
 Build.PL                 | 2 +-
 lib/Demeter/Tools.pm     | 8 ++++----
 lib/Demeter/UI/Athena.pm | 2 +-
 3 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/Build.PL b/Build.PL
index d96bf29..ff0ae07 100644
--- a/Build.PL
+++ b/Build.PL
@@ -91,7 +91,7 @@ my $build = DemeterBuilder
 				'List::MoreUtils'	    => '0',
 				'Math::Combinatorics'	    => '0',
 				'Math::Derivative'	    => '0',
-				'Math::Random'              => '0',
+				'Math::Random::Free'        => '0',
 				'Math::Round'		    => '0',
 				'Math::Spline'		    => '0',
 				'Pod::POM'                  => '0',
diff --git a/lib/Demeter/Tools.pm b/lib/Demeter/Tools.pm
index eb8b8ac..01a3a22 100644
--- a/lib/Demeter/Tools.pm
+++ b/lib/Demeter/Tools.pm
@@ -24,7 +24,7 @@ use Carp;
 use Regexp::Assemble;
 use List::Util qw(sum);
 use List::MoreUtils qw(any);
-use Math::Random;
+use Math::Random::Free qw(random_uniform);
 use Sys::Hostname;
 use DateTime;
 use Data::Dumper;
@@ -132,7 +132,7 @@ sub module_environment {
 		     Regexp::Assemble
 		     Regexp::Common
 		     Heap::Fibonacci
-		     Math::Random
+		     Math::Random::Free
 		     Text::Template
 		     Tree::Simple
 		     YAML::Tiny
@@ -384,7 +384,7 @@ sub randomstring {
   $length ||= 6;
   my $rs = q{};
   foreach (1..$length) {
-    $rs .= chr(int(26*random_uniform)+97);
+    $rs .= chr(int(26*random_uniform())+97);
   };
   return $rs;
 };
@@ -747,7 +747,7 @@ Dump a string into a file.
 
 =item C<randomstring>
 
-Return a rendom character string using random numbers from L<Math::Random>
+Return a rendom character string using random numbers from L<Math::Random::Free>
 
   $string = Demeter->randomstring($length);
 
diff --git a/lib/Demeter/UI/Athena.pm b/lib/Demeter/UI/Athena.pm
index e14d81a..0349bf7 100644
--- a/lib/Demeter/UI/Athena.pm
+++ b/lib/Demeter/UI/Athena.pm
@@ -50,7 +50,7 @@ use File::Path;
 use File::Spec;
 use List::Util qw(min max shuffle);
 use List::MoreUtils qw(any);
-#use Math::Random;
+#use Math::Random::Free;
 use Time::HiRes qw(usleep);
 use Const::Fast;
 const my $FOCUS_UP	=> Wx::NewId();
