Skip to content

Commit bb9d690

Browse files
committed
makedef.pl: Handle O flag
The O flags says to use 'perl_' instead of 'Perl_' if the p flag is not also present. This does that
1 parent fb3d3a1 commit bb9d690

File tree

1 file changed

+5
-1
lines changed

1 file changed

+5
-1
lines changed

makedef.pl

Lines changed: 5 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -814,8 +814,12 @@ sub readvar {
814814
# mean "don't export"
815815
next if $seen{$func}++;
816816
# Should we also skip adding the Perl_ prefix if $flags =~ /o/ ?
817-
$func = "Perl_$func" if ($flags =~ /[psX]/ && $func !~ /^Perl_/);
817+
my $prefix = ($flags =~ /[psX]/) ? 'Perl_'
818+
: ($flags =~ /O/) ? 'perl_'
819+
: "";
820+
$func = "$prefix$func" if $prefix && $func !~ /^$prefix/;
818821
++$export{$func} unless exists $skip{$func};
822+
819823
}
820824
}
821825
}

0 commit comments

Comments
 (0)