# perl.h logic duplication begins
-if ($define{PERL_IMPLICIT_SYS}) {
- $define{PL_OP_SLAB_ALLOC} = 1;
-}
-
if ($define{USE_ITHREADS}) {
if (!$define{MULTIPLICITY}) {
$define{MULTIPLICITY} = 1;
Perl_pad_sv
Perl_pad_setsv
Perl_hv_assert
- PL_block_type
PL_watchaddr
PL_watchok
PL_watch_pvx
PL_hints_mutex
PL_my_ctx_mutex
PL_perlio_mutex
+ PL_stashpad
+ PL_stashpadix
+ PL_stashpadmax
+ Perl_alloccopstash
Perl_clone_params_del
Perl_clone_params_new
Perl_parser_dup
);
}
-unless ($define{'PL_OP_SLAB_ALLOC'}) {
- ++$skip{$_} foreach qw(
- PL_OpPtr
- PL_OpSlab
- PL_OpSpace
- Perl_Slab_Alloc
- Perl_Slab_Free
- );
-}
-
-unless ($define{'PERL_DEBUG_READONLY_OPS'}) {
- ++$skip{$_} foreach qw(
- PL_slab_count
- PL_slabs
- );
-}
-
-unless ($define{'THREADS_HAVE_PIDS'}) {
- ++$skip{PL_ppid};
-}
-
unless ($define{'PERL_NEED_APPCTX'}) {
++$skip{PL_appctx};
}