$define{$1} = 1 if /^\s*#\s*define\s+(MULTIPLICITY)\b/;
$define{$1} = 1 if /^\s*#\s*define\s+(PERL_\w+)\b/;
$define{$1} = 1 if /^\s*#\s*define\s+(USE_\w+)\b/;
+ $define{$1} = 1 if /^\s*#\s*define\s+(HAS_\w+)\b/;
}
close(CFG);
PL_statusvalue_vms
PL_sys_intern
)]);
+ skip_symbols([qw(
+ Perl_signbit
+ )])
+ if $define{'HAS_SIGNBIT'};
emit_symbols([qw(
boot_DynaLoader
)]);
)];
}
+unless ($define{'DEBUG_LEAKING_SCALARS'}) {
+ skip_symbols [qw(
+ PL_sv_serial
+ )];
+}
+
unless ($define{'DEBUG_LEAKING_SCALARS_FORK_DUMP'}) {
skip_symbols [qw(
PL_dumper_fd
PerlIO_arg_fetch
PerlIO_debug
PerlIO_define_layer
+ PerlIO_find_layer
PerlIO_isutf8
PerlIO_layer_fetch
+ PerlIO_list_alloc
PerlIO_list_free
PerlIO_modestr
PerlIO_parse_layers