-my $exportperlmalloc = $PLATFORM eq 'os2';
-
-my $config_sh = "config.sh";
-my $config_h = "config.h";
-my $intrpvar_h = "intrpvar.h";
-my $perlvars_h = "perlvars.h";
-my $global_sym = "global.sym";
-my $globvar_sym = "globvar.sym";
-my $perlio_sym = "perlio.sym";
-my $static_ext = "";
-
-my %skip;
-# All platforms export boot_DynaLoader unconditionally.
-my %export = ( boot_DynaLoader => 1 );
-
-s/^/$TARG_DIR/ foreach($intrpvar_h, $perlvars_h, $global_sym, $globvar_sym,
- $perlio_sym, $config_sh);
-
-unless ($PLATFORM eq 'win32' || $PLATFORM eq 'wince' || $PLATFORM eq 'netware') {
- open(CFG,$config_sh) || die "Cannot open $config_sh: $!\n";
- while (<CFG>) {
- if (/^(?:ccflags|optimize)='(.+)'$/) {
- $_ = $1;
- $define{$1} = 1 while /-D(\w+)/g;
- }
- $define{$1} = $2
- if /^(config_args|archname|perl_patchlevel)='(.+)'$/;
- if ($PLATFORM eq 'vms') {
- $define{DEBUGGING} = 1 if /^usedebugging_perl='Y'$/;
- $define{UNLINK_ALL_VERSIONS} = 1 if /^d_unlink_all_versions='define'$/;
- }
- }
- close(CFG);
-}
-if ($PLATFORM eq 'win32' || $PLATFORM eq 'wince') {
- open(CFG, '<', $config_sh) || die "Cannot open $config_sh: $!\n";
- if ((join '', <CFG>) =~ /^static_ext='(.*)'$/m) {
- $static_ext = $1;
- }
- close(CFG);
-}