diff options
| author | Tony Cook <tony@develop-help.com> | 2013-01-22 22:38:10 +1100 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2013-01-25 13:54:12 +1100 |
| commit | d1e2f601ca8f928cc2b7526839763ea10c26b18f (patch) | |
| tree | ba5d8f4accc1ea2d3e1521e1a3bb275ff6776d52 /makedef.pl | |
| parent | f0af002c737e9413e85d737a29c8c9b396c13414 (diff) | |
| download | perl-d1e2f601ca8f928cc2b7526839763ea10c26b18f.tar.gz | |
PL_Vars and PL_VarsPtr aren't exported under PERL_GLOBAL_STRUCT_PRIVATE
Diffstat (limited to 'makedef.pl')
| -rw-r--r-- | makedef.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/makedef.pl b/makedef.pl index 0593342462..4376842e43 100644 --- a/makedef.pl +++ b/makedef.pl @@ -530,7 +530,8 @@ if ($define{'PERL_GLOBAL_STRUCT'}) { # is mentioned in perlvar.h and globvar.sym, and always exported. delete $skip{PL_sh_path}; ++$export{Perl_GetVars}; - try_symbols(qw(PL_Vars PL_VarsPtr)) unless $ARGS{CCTYPE} eq 'GCC'; + try_symbols(qw(PL_Vars PL_VarsPtr)) + unless $ARGS{CCTYPE} eq 'GCC' || $define{PERL_GLOBAL_STRUCT_PRIVATE}; } else { ++$skip{$_} foreach qw(Perl_init_global_struct Perl_free_global_struct); } |