Sys::Syslog patch to allow unix domain sockets

[p5sagit/p5-mst-13.2.git] / t / op / rand.t

diff --git a/t/op/rand.t b/t/op/rand.t
index 23a09b7..c779f9d 100755 (executable)
--- a/t/op/rand.t
+++ b/t/op/rand.t
@@ -210,7 +210,7 @@ sub bits ($) {
 {
     srand;             # These three lines are for test 7
     my $time = time;   # It's just faster to do them here.
-    my $rand = rand;
+    my $rand = join ", ", rand, rand, rand;
 
     # Hints for TEST 5
     # 
@@ -251,7 +251,7 @@ sub bits ($) {
     #
     while ($time == time) { }  # Wait for new second, just in case.
     srand;
-    if (rand == $rand) {
+    if ((join ", ", rand, rand, rand) eq $rand) {
        print "not ok 7\n";
        print "# srand without args isn't varying.\n";
     } else {