Move some tools to use new random module

bin/mimp

@@ -12,7 +12,7 @@ use Config;
 use strict;
 use Getopt::Long;
 # External modules #
-use Math::Random;
+use random;
 # PsN includes #
 use PsN;
 use common_options;

bin/xv_scm

@@ -7,7 +7,7 @@ use lib "$Bin/../lib";
 # Everything above this line will be replaced #
 
 use PsN;
-use Math::Random;
+use random;
 use strict;
 use Getopt::Long;
 use Cwd;

lib/random.pm

@@ -4,7 +4,7 @@ use strict;
 use Exporter qw(import);
 use PsN;
 
-our @EXPORT = qw(random_set_seed_from_phrase random_uniform_integer);
+our @EXPORT = qw(random_set_seed_from_phrase random_uniform_integer random_permuted_index);
 
 our $old;
 
@@ -37,4 +37,14 @@ sub random_uniform_integer
 }
 
 
+sub random_permuted_index
+{
+    if ($old) {
+        return Math::Random::random_permuted_index(@_); 
+    } else {
+        return Math::Random::Free::random_permuted_index(@_);
+    }
+}
+
+
 1;

lib/tool/gls.pm

@@ -2,7 +2,7 @@ package tool::gls;
 
 use include_modules;
 use tool::modelfit;
-use Math::Random;
+use random;
 use Config;
 use Mouse;
 use MouseX::Params::Validate;

lib/tool/mcmp.pm

@@ -1,7 +1,7 @@
 package tool::mcmp;
 
 use include_modules;
-use Math::Random;
+use random;
 use strict;
 use tool::modelfit;
 use model;

lib/tool/nonpb.pm

@@ -1,7 +1,7 @@
 package tool::nonpb;
 
 use include_modules;
-use Math::Random;
+use random;
 use strict;
 use tool::modelfit;
 use tool::pind;

lib/tool/npc.pm

@@ -1,7 +1,7 @@
 package tool::npc;
 
 use include_modules;
-use Math::Random;
+use random;
 use strict;
 use tool::modelfit;
 use model;

lib/tool/pvar.pm

@@ -1,7 +1,7 @@
 package tool::pvar;
 
 use include_modules;
-use Math::Random;
+use random;
 use File::Spec;
 use Mouse;
 use MouseX::Params::Validate;

lib/tool/qa.pm

@@ -1,7 +1,7 @@
 package tool::qa;
 
 use strict;
-use Math::Random;
+use random;
 use Mouse;
 use MouseX::Params::Validate;
 use File::Copy 'cp';