PL_Vars and PL_VarsPtr aren't exported under PERL_GLOBAL_STRUCT_PRIVATE
authorTony Cook <tony@develop-help.com>
Tue, 22 Jan 2013 11:38:10 +0000 (22:38 +1100)
committerTony Cook <tony@develop-help.com>
Fri, 25 Jan 2013 02:54:12 +0000 (13:54 +1100)
makedef.pl

index 0593342..4376842 100644 (file)
@@ -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);
 }