if ($PLATFORM eq 'win32' or $PLATFORM eq "aix") {
# Add the compile-time options that miniperl was built with to %define.
- # These are not the same options as perl itself will be built with since
- # miniperl is built with a canned config (one of the win32/config_H.*)
- # and none of the BUILDOPT's that are set in the makefiles, but they do
- # include some #define's that are hard-coded in various source files and
- # header files and don't include any BUILDOPT's that the user might have
- # chosen to disable because the canned configs are minimal configs that
- # don't include any of those options.
+ # On Win32 these are not the same options as perl itself will be built
+ # with since miniperl is built with a canned config (one of the win32/
+ # config_H.*) and none of the BUILDOPT's that are set in the makefiles,
+ # but they do include some #define's that are hard-coded in various
+ # source files and header files and don't include any BUILDOPT's that
+ # the user might have chosen to disable because the canned configs are
+ # minimal configs that don't include any of those options.
my $config = `$^X -Ilib -V`;
- my($options) = $config =~ /^ Compile-time options: (.*?)^ \S/ms;
+ my($options) = $config =~ /^ Compile-time options: (.*?)\n^ \S/ms;
+ $options =~ s/\s+/ /g;
print STDERR "Options: ($options)\n";
foreach (split /\s+/, $options) {
$define{$_} = 1;
my $sym_ord = 0;
+print STDERR "Defines: (" . join(' ', sort keys %define) . ")\n";
+
if ($PLATFORM =~ /^win(?:32|ce)$/) {
- warn join(' ',keys %define)."\n";
($dll = ($define{PERL_DLL} || "perl59")) =~ s/\.dll$//i;
print "LIBRARY $dll\n";
print "DESCRIPTION 'Perl interpreter'\n";
PL_linestart
PL_modcount
PL_pending_ident
- PL_sortcxix
PL_sublex_info
PL_timesbuf
main
PL_linestart
PL_modcount
PL_pending_ident
- PL_sortcxix
PL_sublex_info
PL_timesbuf
PL_collation_ix
PL_linestart
PL_modcount
PL_pending_ident
- PL_sortcxix
PL_sublex_info
PL_timesbuf
main
)];
}
+if ($define{'PERL_USE_SAFE_PUTENV'}) {
+ skip_symbols [qw(
+ PL_use_safe_putenv
+ )];
+}
+
unless ($define{'USE_ITHREADS'}) {
skip_symbols [qw(
PL_thr_key
Perl_gv_SVadd
)];
}
+if ($define{'SPRINTF_RETURNS_STRLEN'}) {
+ skip_symbols [qw(
+ Perl_my_sprintf
+ )];
+}
+unless ($define{'PERL_USES_PL_PIDSTATUS'}) {
+ skip_symbols [qw(
+ Perl_pidgone
+ PL_pidstatus
+ )];
+}
unless ($define{'d_mmap'}) {
skip_symbols [qw(