mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 08:38:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

Use seed instead of u for readability in Perl_seed()

Browse Source
This commit is contained in:
Scott Baker 2026-01-22 10:23:38 -08:00 committed by Karl Williamson
parent 8d1c2aec21
commit 3e7d794e79
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
util.c
View File

@ -4615,26 +4615,26 @@ Perl_seed(pTHX)
# define PERL_RANDOM_DEVICE "/dev/urandom"
# endif
#endif
U64 u;
U64 seed;
#ifdef HAS_GETENTROPY
U8 ok = (getentropy(&u, sizeof(u)) == 0);
PerlIO_printf(Perl_debug_log, "Entropy: OK:%i Seed:%lu\n", ok, u);
U8 ok = (getentropy(&seed, sizeof(seed)) == 0);
/* PerlIO_printf(Perl_debug_log, "Entropy: OK:%i Seed:%lu\n", ok, seed); */
if (ok) {
return u;
return seed;
}
#endif
int fd = PerlLIO_open_cloexec(PERL_RANDOM_DEVICE, 0);
if (fd != -1) {
if (PerlLIO_read(fd, (void*)&u, sizeof u) != sizeof u) {
u = 0;
if (PerlLIO_read(fd, (void*)&seed, sizeof seed) != sizeof seed) {
seed = 0;
}
PerlLIO_close(fd);
if (u) {
return u;
if (seed) {
return seed;
}
}
#endif