diff options
author | Steve Hay <SteveHay@planit.com> | 2005-04-22 09:59:54 +0000 |
---|---|---|
committer | Steve Hay <SteveHay@planit.com> | 2005-04-22 09:59:54 +0000 |
commit | 77304e8591c15cb2d1b3ddf232411b6eeff78dce (patch) | |
tree | cf5da6edd7458f48a886ee6ffd99897eb96f0f09 /makedef.pl | |
parent | 9e27e96ad8a80dcef2399eb03105fd8195e035f3 (diff) | |
download | perl-77304e8591c15cb2d1b3ddf232411b6eeff78dce.tar.gz |
Fix more Win32 linker errors following change 24271
This clears up problems with Perl_free_global_struct and
Perl_init_global_struct
p4raw-id: //depot/perl@24280
Diffstat (limited to 'makedef.pl')
-rw-r--r-- | makedef.pl | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/makedef.pl b/makedef.pl index d7e052afb0..d14b50374a 100644 --- a/makedef.pl +++ b/makedef.pl @@ -233,7 +233,6 @@ if ($PLATFORM eq 'win32') { PL_timesbuf main Perl_ErrorNo - Perl_GetVars Perl_do_exec3 Perl_do_ipcctl Perl_do_ipcget @@ -310,7 +309,6 @@ if ($PLATFORM eq 'wince') { win32_spawnvp main Perl_ErrorNo - Perl_GetVars Perl_do_exec3 Perl_do_ipcctl Perl_do_ipcget @@ -349,7 +347,6 @@ elsif ($PLATFORM eq 'aix') { skip_symbols([qw( Perl_dump_fds Perl_ErrorNo - Perl_GetVars Perl_my_bcopy Perl_my_bzero Perl_my_chsize @@ -450,7 +447,6 @@ elsif ($PLATFORM eq 'os2') { } elsif ($PLATFORM eq 'MacOS') { skip_symbols [qw( - Perl_GetVars PL_cryptseen PL_cshlen PL_cshname @@ -492,7 +488,6 @@ elsif ($PLATFORM eq 'netware') { PL_timesbuf main Perl_ErrorNo - Perl_GetVars Perl_do_exec3 Perl_do_ipcctl Perl_do_ipcget @@ -817,6 +812,14 @@ sub readvar { return \@syms; } +unless ($define{'PERL_GLOBAL_STRUCT'}) { + skip_symbols [qw( + Perl_GetVars + Perl_free_global_struct + Perl_init_global_struct + )]; +} + if ($define{'PERL_GLOBAL_STRUCT'}) { my $global = readvar($perlvars_h); skip_symbols $global; |