This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
revert config_h.SH changes, now handled by Configure
authorTony Cook <tony@develop-help.com>
Thu, 29 Aug 2013 04:52:15 +0000 (14:52 +1000)
committerTony Cook <tony@develop-help.com>
Fri, 13 Sep 2013 01:33:57 +0000 (11:33 +1000)
config_h.SH

index c2d69f4..be47a6b 100755 (executable)
@@ -3147,10 +3147,10 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
  *     function used to generate normalized random numbers.
  *     Values include 15, 16, 31, and 48.
  */
  *     function used to generate normalized random numbers.
  *     Values include 15, 16, 31, and 48.
  */
-#define Drand01()              Perl_drand48()          /**/
-#define Rand_seed_t            U32             /**/
-#define seedDrand01(x) Perl_drand48_init((Rand_seed_t)x)       /**/
-#define RANDBITS               48              /**/
+#define Drand01()              $drand01                /**/
+#define Rand_seed_t            $randseedtype           /**/
+#define seedDrand01(x) $seedfunc((Rand_seed_t)x)       /**/
+#define RANDBITS               $randbits               /**/
 
 /* Select_fd_set_t:
  *     This symbol holds the type used for the 2nd, 3rd, and 4th
 
 /* Select_fd_set_t:
  *     This symbol holds the type used for the 2nd, 3rd, and 4th