/ /home/httpd/lonUsers use strict; use Math::Random; my $version = $Math::Random::VERSION; my $good = "100755189, 832255242"; &random_set_seed_from_phrase('testing the phrase seeding'); my $result = join(', ',&random_get_seed()); if ($result ne $good) { print <<"END"; **** ERROR: Math::Random is not working properly. You are using version $version. It returned $result rather than $good END }