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

embed.pl: Remove no longer used sub

Browse Source
This commit is contained in:
Karl Williamson 2026-01-11 12:01:03 -07:00 committed by Karl Williamson
parent 4b67bbf7f6
commit 682cd222bd
1 changed files with 0 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
regen/embed.pl
View File

@ -4960,30 +4960,6 @@ sub set_flags_visibility {
return;
}
sub recurse_conds {
# Look through the list of conditionals that HeaderParser generates,
# looking for occurrences of the regex $pattern, returning true if found;
# false otherwise.
my $status = 0;
my ($pattern, @conds) = @_;
for my $this_cond (@conds) {
# Recurse if necessary
if (ref $this_cond eq 'ARRAY') {
$status |= recurse_conds($pattern, $this_cond->@*);
return $status if $status; # Early return if found
}
else {
$status |= $this_cond =~ $pattern;
return $status if $status; # Early return if found
}
}
return 0;
}
sub get_and_set_cpp_visibility {
my ($name, $line) = @_;