From 13b09f53da8f8311d0441614187a9e9bf1e86a04 Mon Sep 17 00:00:00 2001
From: Karl Williamson <khw@cpan.org>
Date: Sun, 14 Dec 2025 04:03:14 -0700
Subject: [PATCH] embed.pl: Save hash elem into $var to make more readable

---
 regen/embed.pl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/regen/embed.pl b/regen/embed.pl
index c97d072a5b..df4052c879 100755
--- a/regen/embed.pl
+++ b/regen/embed.pl
@@ -4863,18 +4863,19 @@ sub find_undefs {
     # restrict the visibility.
 
     foreach my $entry ($fnc->@*) {
+        my $embed = $entry->embed;
 
         # Only lines that have this are interesting to us.  Lines that don't
         # have it are typically '#if' lines in the file.  (These are
         # meaningful to HeaderParser which has already parsed them and used
         # their information to create auxiliary data for the lines we do care
         # about.)
-        next unless $entry->embed;
+        next unless $embed;
 
-        my $flags = $entry->embed->{flags};
+        my $flags = $embed->{flags};
         $flags =~ s/[^ACE]//g;
         next unless $flags;     # No visibility
-        $visibility{$entry->embed->{name}} = $flags;
+        $visibility{$embed->{name}} = $flags;
     }
 
     # Done with embed.fnc.  Now look through all the header files for their