)];
}
-unless ($define{'PERL_COPY_ON_WRITE'}) {
+unless ($define{'PERL_OLD_COPY_ON_WRITE'}) {
skip_symbols [qw(
Perl_sv_setsv_cow
Perl_sv_release_IVX
Perl_re_dup
Perl_sv_dup
Perl_rvpv_dup
+ Perl_hek_dup
Perl_sys_intern_dup
Perl_ptr_table_clear
Perl_ptr_table_fetch
Perl_sharedsv_thrcnt_dec
Perl_sharedsv_thrcnt_inc
Perl_sharedsv_unlock
+ Perl_stashpv_hvname_match
)];
}
)];
}
+unless ($define{'DEBUG_LEAKING_SCALARS_FORK_DUMP'}) {
+ skip_symbols [qw(
+ PL_dumper_fd
+ )];
+}
+unless ($define{'PERL_DONT_CREATE_GVSV'}) {
+ skip_symbols [qw(
+ Perl_gv_SVadd
+ )];
+}
+
unless ($define{'d_mmap'}) {
skip_symbols [qw(
PL_mmap_page_size
{
try_symbol($symbol);
}
+ if ($CCTYPE eq "BORLAND") {
+ try_symbol('_matherr');
+ }
}
elsif ($PLATFORM eq 'os2') {
open MAP, 'miniperl.map' or die 'Cannot read miniperl.map';