diff options
| author | Karl Williamson <khw@cpan.org> | 2022-06-08 06:49:59 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2022-06-14 07:38:50 -0600 |
| commit | c43e2db585193d859602960fa5f4a826b76f0f1e (patch) | |
| tree | 55a04f31da823a0d3f091b32eeb2849b1eb9b8e4 /makedef.pl | |
| parent | 07b6261fb1bd833cdc1794d2de7fc09ce103c952 (diff) | |
| download | perl-c43e2db585193d859602960fa5f4a826b76f0f1e.tar.gz | |
regen/embed.pl: Add static Perl_ not_inlined capability
This will be used in the next commit
Diffstat (limited to 'makedef.pl')
| -rw-r--r-- | makedef.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/makedef.pl b/makedef.pl index 99090cb417..ef77b83ce1 100644 --- a/makedef.pl +++ b/makedef.pl @@ -696,7 +696,7 @@ unless ($Config{d_wcrtomb}) { { my %seen; my ($embed) = setup_embed($ARGS{TARG_DIR}); - my $excludedre = $define{'NO_MATHOMS'} ? qr/[emiIb]/ : qr/[emiI]/; + my $excludedre = $define{'NO_MATHOMS'} ? qr/[emiIsb]/ : qr/[emiIs]/; foreach (@$embed) { my ($flags, $retval, $func, @args) = @$_; @@ -712,7 +712,7 @@ unless ($Config{d_wcrtomb}) { # mean "don't export" next if $seen{$func}++; # Should we also skip adding the Perl_ prefix if $flags =~ /o/ ? - $func = "Perl_$func" if ($flags =~ /[pX]/ && $func !~ /^Perl_/); + $func = "Perl_$func" if ($flags =~ /[psX]/ && $func !~ /^Perl_/); ++$export{$func} unless exists $skip{$func}; } } |