unless ($define{'PERL_OLD_COPY_ON_WRITE'}) {
skip_symbols [qw(
Perl_sv_setsv_cow
- Perl_sv_release_IVX
)];
}
Perl_gp_dup
Perl_he_dup
Perl_mg_dup
+ Perl_mro_meta_dup
Perl_re_dup
Perl_sv_dup
Perl_rvpv_dup
Perl_sharedsv_unlock
Perl_stashpv_hvname_match
Perl_regdupe_internal
+ Perl_newPADOP
)];
}
)];
}
+unless ($define{'PERL_DEBUG_READONLY_OPS'}) {
+ skip_symbols [qw(
+ PL_slab_count
+ PL_slabs
+ )];
+}
+
unless ($define{'THREADS_HAVE_PIDS'}) {
skip_symbols [qw(PL_ppid)];
}