patch up egcs-1.1.2-mingw32 build (builds a working miniperl, but not

[perl5.git] / makedef.pl

diff --git a/makedef.pl b/makedef.pl
index a5878ff..63a09bd 100644 (file)
--- a/makedef.pl
+++ b/makedef.pl
@@ -415,7 +415,7 @@ if ($define{'PERL_GLOBAL_STRUCT'})
  {
   my $global = readvar($perlvars_h);
   skip_symbols $global;
-  emit_symbols [qw(Perl_GetVars)];
+  emit_symbol('Perl_GetVars');
   emit_symbols [qw(PL_Vars PL_VarsPtr)] unless $CCTYPE eq 'GCC';
  }