From 3e7d794e7924305cd84b7db6916baa5d55eac710 Mon Sep 17 00:00:00 2001
From: Scott Baker <scott@perturb.org>
Date: Thu, 22 Jan 2026 10:23:38 -0800
Subject: [PATCH] Use `seed` instead of `u` for readability in Perl_seed()

---
 util.c | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/util.c b/util.c
index b603e38872..8493323bcd 100644
--- a/util.c
+++ b/util.c
@@ -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