We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent fb3d3a1 commit bb9d690Copy full SHA for bb9d690
makedef.pl
@@ -814,8 +814,12 @@ sub readvar {
814
# mean "don't export"
815
next if $seen{$func}++;
816
# Should we also skip adding the Perl_ prefix if $flags =~ /o/ ?
817
- $func = "Perl_$func" if ($flags =~ /[psX]/ && $func !~ /^Perl_/);
+ my $prefix = ($flags =~ /[psX]/) ? 'Perl_'
818
+ : ($flags =~ /O/) ? 'perl_'
819
+ : "";
820
+ $func = "$prefix$func" if $prefix && $func !~ /^$prefix/;
821
++$export{$func} unless exists $skip{$func};
822
+
823
}
824
825
0 commit comments