Commit b8c8d28a42 for perl
commit b8c8d28a426a297a4991a46f0c78e672ac9bb9db
Author: Karl Williamson <khw@cpan.org>
Date: Sun Oct 4 15:10:03 2026 -0600
autodoc,embed.pl: Cope better with new Q flag
The Q flag isn't irrelevant in autodoc.
And it needs to be considered like the E flag in one previously
overlooked instance in regen/embed.pl
The next commits will use these capabilities that hadn't been fully
exercised before.
diff --git a/autodoc.pl b/autodoc.pl
index 8e95b35313..f5292277c6 100644
--- a/autodoc.pl
+++ b/autodoc.pl
@@ -78,7 +78,7 @@ my $known_flags_re =
qr/[ aA bB C dD eE fF h iI mM nN oO Q pP rR sS tT uU v W xX y ;@\#? ] /xx;
# Flags that don't apply to this program, like implementation details.
-my $irrelevant_flags_re = qr/[ ab eE iI P Q rR X? ]/xx;
+my $irrelevant_flags_re = qr/[ ab eE iI P rR X? ]/xx;
# Only certain flags dealing with what gets displayed, are acceptable for
# apidoc_item
diff --git a/regen/embed.pl b/regen/embed.pl
index 6f3d50e55f..8095a2632a 100755
--- a/regen/embed.pl
+++ b/regen/embed.pl
@@ -5506,7 +5506,7 @@ sub find_undefs {
delete $always_undefs{$name}; # No need to #undef it
if ( $flags_visibility
- && $flags_visibility !~ /E/
+ && $flags_visibility !~ /[EQ]/
&& ! defined $visibility{$name}{flags_implicit})
{
push @warnings, "'$name' cannot actually be seen outside of"