summaryrefslogtreecommitdiff
path: root/makedef.pl
diff options
context:
space:
mode:
authorSteve Hay <SteveHay@planit.com>2005-04-22 09:59:54 +0000
committerSteve Hay <SteveHay@planit.com>2005-04-22 09:59:54 +0000
commit77304e8591c15cb2d1b3ddf232411b6eeff78dce (patch)
treecf5da6edd7458f48a886ee6ffd99897eb96f0f09 /makedef.pl
parent9e27e96ad8a80dcef2399eb03105fd8195e035f3 (diff)
downloadperl-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.pl13
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;