diff options
| -rw-r--r-- | makedef.pl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/makedef.pl b/makedef.pl index 858c1eb46a..b4d76ea699 100644 --- a/makedef.pl +++ b/makedef.pl @@ -1223,6 +1223,10 @@ if ($define{'MULTIPLICITY'}) { my $glob = readvar($f, sub { "Perl_" . $_[1] . $_[2] . "_ptr" }); emit_symbols $glob; } + unless ($define{'USE_ITHREADS'}) { + # XXX needed for XS extensions that define PERL_CORE + emit_symbol("PL_curinterp"); + } # XXX AIX seems to want the perlvars.h symbols, for some reason if ($PLATFORM eq 'aix' or $PLATFORM eq 'os2') { # OS/2 needs PL_thr_key my $glob = readvar($perlvars_h); |