PL_Vars and PL_VarsPtr aren't exported under PERL_GLOBAL_STRUCT_PRIVATE

diff --git a/makedef.pl b/makedef.pl
index 0593342..4376842 100644 (file)
--- 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);
 }