$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
)]);
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