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

[p5sagit/p5-mst-13.2.git] / win32 / config.gc

diff --git a/win32/config.gc b/win32/config.gc
index cd349c7..7dc64f8 100644 (file)
--- a/win32/config.gc
+++ b/win32/config.gc
@@ -331,7 +331,7 @@ direntrytype='struct direct'
 dlext='dll'
 dlsrc='dl_win32.xs'
 doublesize='8'
-drand01='rand()'
+drand01='(rand()/(double)((unsigned)1<<RANDBITS))'
 dynamic_ext='Socket IO Fcntl Opcode SDBM_File attrs Thread'
 eagain='EAGAIN'
 ebcdic='undef'