unless ($define{'USE_ITHREADS'}) {
++$skip{$_} foreach qw(
+ PL_check_mutex
PL_op_mutex
PL_regex_pad
PL_regex_padav
PL_hints_mutex
PL_my_ctx_mutex
PL_perlio_mutex
+ PL_stashpad
+ PL_stashpadix
+ PL_stashpadmax
Perl_clone_params_del
Perl_clone_params_new
Perl_parser_dup
);
}
-unless ($define{'THREADS_HAVE_PIDS'}) {
- ++$skip{PL_ppid};
-}
-
unless ($define{'PERL_NEED_APPCTX'}) {
++$skip{PL_appctx};
}