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

embed.pl: Save hash elem into $var to make more readable

Browse Source
This commit is contained in:
Karl Williamson 2025-12-14 04:03:14 -07:00 committed by Karl Williamson
parent f3e59cad18
commit 13b09f53da
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
regen/embed.pl
View File

@ -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