X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/11c9859f920c51ebb0f8e9913646e4216b06519c..89829bb5b54b0a41bc51d5485dbcc7877db662fa:/makedef.pl diff --git a/makedef.pl b/makedef.pl index 9761954..93e47b0 100644 --- a/makedef.pl +++ b/makedef.pl @@ -108,7 +108,6 @@ my $config_h = 'config.h'; open(CFG, '<', $config_h) || die "Cannot open $config_h: $!\n"; while () { $define{$1} = 1 if /^\s*\#\s*define\s+(MYMALLOC|MULTIPLICITY - |SPRINTF_RETURNS_STRLEN |KILL_BY_SIGPRC |(?:PERL|USE|HAS)_\w+)\b/x; } @@ -359,6 +358,7 @@ unless ($define{'USE_ITHREADS'}) { unless ($define{'USE_ITHREADS'}) { ++$skip{$_} foreach qw( + PL_keyword_plugin_mutex PL_check_mutex PL_op_mutex PL_regex_pad @@ -399,11 +399,11 @@ unless ($define{'USE_ITHREADS'}) { ); } -unless ( $define{'USE_ITHREADS'} - && $define{'HAS_NEWLOCALE'}) +unless ($define{'HAS_NEWLOCALE'} && ! $define{'NO_POSIX_2008_LOCALE'}) { ++$skip{$_} foreach qw( PL_C_locale_obj + PL_underlying_numeric_obj ); } @@ -466,10 +466,6 @@ unless ($define{'PERL_DONT_CREATE_GVSV'}) { ++$skip{Perl_gv_SVadd}; } -if ($define{'SPRINTF_RETURNS_STRLEN'}) { - ++$skip{Perl_my_sprintf}; -} - unless ($define{'PERL_USES_PL_PIDSTATUS'}) { ++$skip{PL_pidstatus}; } @@ -482,6 +478,10 @@ unless ($define{'MULTIPLICITY'}) { ++$skip{$_} foreach qw( PL_interp_size PL_interp_size_5_18_0 + PL_sv_yes + PL_sv_undef + PL_sv_no + PL_sv_zero ); } @@ -519,6 +519,11 @@ if ($ARGS{PLATFORM} eq 'vms' && !$define{KILL_BY_SIGPRC}) { ++$skip{PL_sig_handlers_initted} unless !$define{HAS_SIGACTION}; } +if ($define{'HAS_STRNLEN'}) +{ + ++$skip{Perl_my_strnlen}; +} + unless ($define{USE_LOCALE_COLLATE}) { ++$skip{$_} foreach qw( PL_collation_ix