diff options
| author | Karl Williamson <khw@cpan.org> | 2016-05-10 21:26:33 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2016-05-12 20:19:58 -0600 |
| commit | 5ff52e3ca85f534d7e9cc92421be53c783fc747b (patch) | |
| tree | c0f4f2ee56df499f1932ce656d52f1f936121d77 /makedef.pl | |
| parent | 52de5f36afe1d56995f76f26f15cf191e9cf699a (diff) | |
| download | perl-5ff52e3ca85f534d7e9cc92421be53c783fc747b.tar.gz | |
embed.fnc: Change 'b' flag to not imply 'p' flag
By doing this, we make it more general, which will be useful in a few
commits.
Diffstat (limited to 'makedef.pl')
| -rw-r--r-- | makedef.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/makedef.pl b/makedef.pl index 104696c8f3..84b439efd0 100644 --- a/makedef.pl +++ b/makedef.pl @@ -701,7 +701,7 @@ unless ($define{'USE_QUADMATH'}) { # mean "don't export" next if $seen{$func}++; # Should we also skip adding the Perl_ prefix if $flags =~ /o/ ? - $func = "Perl_$func" if ($flags =~ /[pbX]/ && $func !~ /^Perl_/); + $func = "Perl_$func" if ($flags =~ /[pX]/ && $func !~ /^Perl_/); ++$export{$func} unless exists $skip{$func}; } } |