sanity-check $Config{drand01} in rand.t

[p5sagit/p5-mst-13.2.git] / win32 / config_H.bc

diff --git a/win32/config_H.bc b/win32/config_H.bc
index 493da73..8c06b36 100644 (file)
--- a/win32/config_H.bc
+++ b/win32/config_H.bc
@@ -1348,7 +1348,7 @@
  *     function used to generate normalized random numbers.
  *     Values include 15, 16, 31, and 48.
  */
-#define Drand01()              rand()          /**/
+#define Drand01()              (rand()/(double)((unsigned)1<<RANDBITS))                /**/
 #define Rand_seed_t            unsigned                /**/
 #define seedDrand01(x) srand((Rand_seed_t)x)   /**/
 #define RANDBITS               15              /**/