diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1998-11-27 11:10:22 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1998-11-27 11:10:22 +0000 |
| commit | 47d92828360781cbf2e3ddccf610d192cd5998b6 (patch) | |
| tree | faee138ddb81035956862bfebcd426d5bb89cf3e | |
| parent | ac60b0161d7f4c26f3afcd99fe10177b8eebee8f (diff) | |
| parent | 901b18f1f40355e1c6bf8f01f58203410eb7eabb (diff) | |
| download | perl-47d92828360781cbf2e3ddccf610d192cd5998b6.tar.gz | |
Integrate from mainperl.
p4raw-id: //depot/cfgperl@2316
| -rw-r--r-- | XSUB.h | 215 | ||||
| -rw-r--r-- | embed.h | 2 | ||||
| -rwxr-xr-x | embed.pl | 78 | ||||
| -rw-r--r-- | embedvar.h | 2 | ||||
| -rw-r--r-- | ext/Thread/Thread.xs | 6 | ||||
| -rw-r--r-- | iperlsys.h | 1 | ||||
| -rw-r--r-- | mg.c | 9 | ||||
| -rw-r--r-- | objXSUB.h | 4189 | ||||
| -rw-r--r-- | op.c | 1 | ||||
| -rw-r--r-- | pp_ctl.c | 6 | ||||
| -rw-r--r-- | pp_sys.c | 24 | ||||
| -rw-r--r-- | proto.h | 2 | ||||
| -rwxr-xr-x | t/comp/package.t | 16 | ||||
| -rwxr-xr-x | t/lib/dumper.t | 2 | ||||
| -rw-r--r-- | t/pragma/warn/pp_ctl | 2 | ||||
| -rw-r--r-- | universal.c | 3 | ||||
| -rw-r--r-- | util.c | 20 | ||||
| -rw-r--r-- | win32/GenCAPI.pl | 34 | ||||
| -rw-r--r-- | win32/win32.h | 5 | ||||
| -rw-r--r-- | win32/win32sck.c | 7 |
20 files changed, 2934 insertions, 1690 deletions
@@ -1,13 +1,13 @@ #define ST(off) PL_stack_base[ax + (off)] #ifdef CAN_PROTOTYPE -#ifdef PERL_OBJECT -#define XS(name) void name(CV* cv, CPerlObj* pPerl) -#else -#define XS(name) void name(CV* cv) -#endif +# ifdef PERL_OBJECT +# define XS(name) void name(CV* cv, CPerlObj* pPerl) +# else +# define XS(name) void name(CV* cv) +# endif #else -#define XS(name) void name(cv) CV* cv; +# define XS(name) void name(cv) CV* cv; #endif #define dXSARGS \ @@ -55,7 +55,7 @@ #define newXSproto(a,b,c,d) sv_setpv((SV*)newXS(a,b,c), d) #ifdef XS_VERSION -# define XS_VERSION_BOOTCHECK \ +# define XS_VERSION_BOOTCHECK \ STMT_START { \ SV *tmpsv; \ char *vn = Nullch, *module = SvPV(ST(0),PL_na); \ @@ -76,7 +76,7 @@ vn ? vn : "bootstrap parameter", tmpsv); \ } STMT_END #else -# define XS_VERSION_BOOTCHECK +# define XS_VERSION_BOOTCHECK #endif #ifdef PERL_CAPI @@ -148,14 +148,195 @@ #endif #ifdef PERL_OBJECT -#include "objXSUB.h" -#ifndef NO_XSLOCKS -#ifdef WIN32 -#include "XSlock.h" -#endif /* WIN32 */ -#endif /* NO_XSLOCKS */ +# include "objXSUB.h" + +# undef PERL_OBJECT_THIS +# define PERL_OBJECT_THIS pPerl +# undef PERL_OBJECT_THIS_ +# define PERL_OBJECT_THIS_ pPerl, + +# undef SAVEDESTRUCTOR +# define SAVEDESTRUCTOR(f,p) \ + pPerl->Perl_save_destructor((FUNC_NAME_TO_PTR(f)),(p)) + +# ifdef WIN32 +# ifndef WIN32IO_IS_STDIO +# undef errno +# define errno ErrorNo() +# endif +# undef ErrorNo +# define ErrorNo pPerl->ErrorNo +# undef NtCrypt +# define NtCrypt pPerl->NtCrypt +# undef NtGetLib +# define NtGetLib pPerl->NtGetLib +# undef NtGetArchLib +# define NtGetArchLib pPerl->NtGetArchLib +# undef NtGetSiteLib +# define NtGetSiteLib pPerl->NtGetSiteLib +# undef NtGetBin +# define NtGetBin pPerl->NtGetBin +# undef NtGetDebugScriptStr +# define NtGetDebugScriptStr pPerl->NtGetDebugScriptStr +# endif /* WIN32 */ + +# ifndef NO_XSLOCKS +# undef closedir +# undef opendir +# undef stdin +# undef stdout +# undef stderr +# undef feof +# undef ferror +# undef fgetpos +# undef ioctl +# undef getlogin +# undef setjmp +# undef getc +# undef ungetc +# undef fileno + +# define mkdir PerlDir_mkdir +# define chdir PerlDir_chdir +# define rmdir PerlDir_rmdir +# define closedir PerlDir_close +# define opendir PerlDir_open +# define readdir PerlDir_read +# define rewinddir PerlDir_rewind +# define seekdir PerlDir_seek +# define telldir PerlDir_tell +# define putenv PerlEnv_putenv +# define getenv PerlEnv_getenv +# define stdin PerlIO_stdin() +# define stdout PerlIO_stdout() +# define stderr PerlIO_stderr() +# define fopen PerlIO_open +# define fclose PerlIO_close +# define feof PerlIO_eof +# define ferror PerlIO_error +# define fclearerr PerlIO_clearerr +# define getc PerlIO_getc +# define fputc(c, f) PerlIO_putc(f,c) +# define fputs(s, f) PerlIO_puts(f,s) +# define fflush PerlIO_flush +# define ungetc(c, f) PerlIO_ungetc((f),(c)) +# define fileno PerlIO_fileno +# define fdopen PerlIO_fdopen +# define freopen PerlIO_reopen +# define fread(b,s,c,f) PerlIO_read((f),(b),(s*c)) +# define fwrite(b,s,c,f) PerlIO_write((f),(b),(s*c)) +# define setbuf PerlIO_setbuf +# define setvbuf PerlIO_setvbuf +# define setlinebuf PerlIO_setlinebuf +# define stdoutf PerlIO_stdoutf +# define vfprintf PerlIO_vprintf +# define ftell PerlIO_tell +# define fseek PerlIO_seek +# define fgetpos PerlIO_getpos +# define fsetpos PerlIO_setpos +# define frewind PerlIO_rewind +# define tmpfile PerlIO_tmpfile +# define access PerlLIO_access +# define chmod PerlLIO_chmod +# define chsize PerlLIO_chsize +# define close PerlLIO_close +# define dup PerlLIO_dup +# define dup2 PerlLIO_dup2 +# define flock PerlLIO_flock +# define fstat PerlLIO_fstat +# define ioctl PerlLIO_ioctl +# define isatty PerlLIO_isatty +# define lseek PerlLIO_lseek +# define lstat PerlLIO_lstat +# define mktemp PerlLIO_mktemp +# define open PerlLIO_open +# define read PerlLIO_read +# define rename PerlLIO_rename +# define setmode PerlLIO_setmode +# define stat PerlLIO_stat +# define tmpnam PerlLIO_tmpnam +# define umask PerlLIO_umask +# define unlink PerlLIO_unlink +# define utime PerlLIO_utime +# define write PerlLIO_write +# define malloc PerlMem_malloc +# define realloc PerlMem_realloc +# define free PerlMem_free +# define abort PerlProc_abort +# define exit PerlProc_exit +# define _exit PerlProc__exit +# define execl PerlProc_execl +# define execv PerlProc_execv +# define execvp PerlProc_execvp +# define getuid PerlProc_getuid +# define geteuid PerlProc_geteuid +# define getgid PerlProc_getgid +# define getegid PerlProc_getegid +# define getlogin PerlProc_getlogin +# define kill PerlProc_kill +# define killpg PerlProc_killpg +# define pause PerlProc_pause +# define popen PerlProc_popen +# define pclose PerlProc_pclose +# define pipe PerlProc_pipe +# define setuid PerlProc_setuid +# define setgid PerlProc_setgid +# define sleep PerlProc_sleep +# define times PerlProc_times +# define wait PerlProc_wait +# define setjmp PerlProc_setjmp +# define longjmp PerlProc_longjmp +# define signal PerlProc_signal +# define htonl PerlSock_htonl +# define htons PerlSock_htons +# define ntohl PerlSock_ntohl +# define ntohs PerlSock_ntohs +# define accept PerlSock_accept +# define bind PerlSock_bind +# define connect PerlSock_connect +# define endhostent PerlSock_endhostent +# define endnetent PerlSock_endnetent +# define endprotoent PerlSock_endprotoent +# define endservent PerlSock_endservent +# define gethostbyaddr PerlSock_gethostbyaddr +# define gethostbyname PerlSock_gethostbyname +# define gethostent PerlSock_gethostent +# define gethostname PerlSock_gethostname +# define getnetbyaddr PerlSock_getnetbyaddr +# define getnetbyname PerlSock_getnetbyname +# define getnetent PerlSock_getnetent +# define getpeername PerlSock_getpeername +# define getprotobyname PerlSock_getprotobyname +# define getprotobynumber PerlSock_getprotobynumber +# define getprotoent PerlSock_getprotoent +# define getservbyname PerlSock_getservbyname +# define getservbyport PerlSock_getservbyport +# define getservent PerlSock_getservent +# define getsockname PerlSock_getsockname +# define getsockopt PerlSock_getsockopt +# define inet_addr PerlSock_inet_addr +# define inet_ntoa PerlSock_inet_ntoa +# define listen PerlSock_listen +# define recv PerlSock_recv +# define recvfrom PerlSock_recvfrom +# define select PerlSock_select +# define send PerlSock_send +# define sendto PerlSock_sendto +# define sethostent PerlSock_sethostent +# define setnetent PerlSock_setnetent +# define setprotoent PerlSock_setprotoent +# define setservent PerlSock_setservent +# define setsockopt PerlSock_setsockopt +# define shutdown PerlSock_shutdown +# define socket PerlSock_socket +# define socketpair PerlSock_socketpair + +# ifdef WIN32 +# include "XSlock.h" +# endif /* WIN32 */ +# endif /* NO_XSLOCKS */ #else -#ifdef PERL_CAPI -#include "perlCAPI.h" -#endif +# ifdef PERL_CAPI +# include "perlCAPI.h" +# endif #endif /* PERL_OBJECT */ @@ -1,6 +1,6 @@ /* !!!!!!! DO NOT EDIT THIS FILE !!!!!!! This file is built by embed.pl from global.sym, pp.sym, intrpvar.h, - and thrdvar.h. Any changes made here will be lost! + perlvars.h and thrdvar.h. Any changes made here will be lost! */ /* (Doing namespace management portably in C is really gross.) */ @@ -41,8 +41,8 @@ sub readsyms (\%$) { readsyms %global, 'global.sym'; readsyms %global, 'pp.sym'; -sub readvars(\%$$) { - my ($syms, $file,$pre) = @_; +sub readvars(\%$$@) { + my ($syms, $file,$pre,$keep_pre) = @_; local (*FILE, $_); open(FILE, "< $file") or die "embed.pl: Can't open $file: $!\n"; @@ -50,6 +50,7 @@ sub readvars(\%$$) { s/[ \t]*#.*//; # Delete comments. if (/PERLVARI?C?\($pre(\w+)/) { my $sym = $1; + $sym = $pre . $sym if $keep_pre; warn "duplicate symbol $sym while processing $file\n" if exists $$syms{$sym}; $$syms{$sym} = 1; @@ -64,6 +65,7 @@ my %thread; readvars %intrp, 'intrpvar.h','I'; readvars %thread, 'thrdvar.h','T'; readvars %globvar, 'perlvars.h','G'; +readvars %objvar, 'intrpvar.h','pi', 1; foreach my $sym (sort keys %intrp) { @@ -93,19 +95,39 @@ foreach my $sym (sort keys %thread) } } +sub undefine ($) { + my ($sym) = @_; + "#undef $sym\n"; +} + sub hide ($$) { my ($from, $to) = @_; my $t = int(length($from) / 8); "#define $from" . "\t" x ($t < 3 ? 3 - $t : 1) . "$to\n"; } + sub embed ($) { my ($sym) = @_; hide($sym, "Perl_$sym"); } + sub embedobj ($) { my ($sym) = @_; hide($sym, $sym =~ /^perl_/i ? "CPerlObj::$sym" : "CPerlObj::Perl_$sym"); } + +sub objxsub_func ($) { + my ($sym) = @_; + undefine($sym) . hide($sym, $sym =~ /^perl_/i + ? "pPerl->$sym" + : "pPerl->Perl_$sym"); +} + +sub objxsub_var ($) { + my ($sym) = @_; + undefine("PL_$sym") . hide("PL_$sym", "pPerl->PL_$sym"); +} + sub embedvar ($) { my ($sym) = @_; # hide($sym, "Perl_$sym"); @@ -128,7 +150,7 @@ open(EM, '> embed.h') print EM <<'END'; /* !!!!!!! DO NOT EDIT THIS FILE !!!!!!! This file is built by embed.pl from global.sym, pp.sym, intrpvar.h, - and thrdvar.h. Any changes made here will be lost! + perlvars.h and thrdvar.h. Any changes made here will be lost! */ /* (Doing namespace management portably in C is really gross.) */ @@ -152,7 +174,7 @@ print EM <<'END'; END # XXX these should be in a *.sym file -my @extras = qw( +my @staticfuncs = qw( perl_init_i18nl10n perl_init_i18nl14n perl_new_collate @@ -365,7 +387,7 @@ my @extras = qw( fprintf ); -for $sym (sort(keys(%global),@extras)) { +for $sym (sort(keys(%global),@staticfuncs)) { print EM embedobj($sym); } @@ -384,7 +406,7 @@ open(EM, '> embedvar.h') print EM <<'END'; /* !!!!!!! DO NOT EDIT THIS FILE !!!!!!! This file is built by embed.pl from global.sym, pp.sym, intrpvar.h, - and thrdvar.h. Any changes made here will be lost! + perlvars.h and thrdvar.h. Any changes made here will be lost! */ /* (Doing namespace management portably in C is really gross.) */ @@ -524,3 +546,47 @@ END close(EM); + +unlink 'objXSUB.h'; +open(OBX, '> objXSUB.h') + or die "Can't create objXSUB.h: $!\n"; + +print OBX <<'EOT'; +/* !!!!!!! DO NOT EDIT THIS FILE !!!!!!! + This file is built by embed.pl from global.sym, pp.sym, intrpvar.h, + perlvars.h and thrdvar.h. Any changes made here will be lost! +*/ + +#ifndef __objXSUB_h__ +#define __objXSUB_h__ + +/* Variables */ + +EOT + +foreach my $sym (sort(keys(%intrp), + keys(%thread), + keys(%globvar), + keys(%objvar))) +{ + print OBX objxsub_var($sym); +} + +print OBX <<'EOT'; + +/* Functions */ + +EOT + + +for $sym (sort(keys(%global),@staticfuncs)) { + print OBX objxsub_func($sym); +} + + +print OBX <<'EOT'; + +#endif /* __objXSUB_h__ */ +EOT + +close(OBX); diff --git a/embedvar.h b/embedvar.h index 297db713ce..187a06a925 100644 --- a/embedvar.h +++ b/embedvar.h @@ -1,6 +1,6 @@ /* !!!!!!! DO NOT EDIT THIS FILE !!!!!!! This file is built by embed.pl from global.sym, pp.sym, intrpvar.h, - and thrdvar.h. Any changes made here will be lost! + perlvars.h and thrdvar.h. Any changes made here will be lost! */ /* (Doing namespace management portably in C is really gross.) */ diff --git a/ext/Thread/Thread.xs b/ext/Thread/Thread.xs index fb9aba9d92..09751c5f1a 100644 --- a/ext/Thread/Thread.xs +++ b/ext/Thread/Thread.xs @@ -115,6 +115,8 @@ threadstart(void *arg) sv = POPs; PUTBACK; + ENTER; + SAVETMPS; perl_call_sv(sv, G_ARRAY|G_EVAL); SPAGAIN; retval = SP - (PL_stack_base + oldmark); @@ -138,6 +140,8 @@ threadstart(void *arg) for (i = 1; i <= retval; i++, SP++) sv_setsv(*av_fetch(av, i, TRUE), SvREFCNT_inc(*SP)); } + FREETMPS; + LEAVE; finishoff: #if 0 @@ -174,7 +178,7 @@ threadstart(void *arg) Safefree(PL_screamnext); Safefree(PL_reg_start_tmp); SvREFCNT_dec(PL_lastscream); - /*SvREFCNT_dec(PL_defoutgv);*/ + SvREFCNT_dec(PL_defoutgv); MUTEX_LOCK(&thr->mutex); DEBUG_S(PerlIO_printf(PerlIO_stderr(), diff --git a/iperlsys.h b/iperlsys.h index 6cb3206382..279aac50ff 100644 --- a/iperlsys.h +++ b/iperlsys.h @@ -907,6 +907,7 @@ public: #define PerlSock_inet_addr(c) inet_addr(c) #define PerlSock_inet_ntoa(i) inet_ntoa(i) #define PerlSock_listen(s, b) listen(s, b) +#define PerlSock_recv(s, b, l, f) recv(s, b, l, f) #define PerlSock_recvfrom(s, b, l, f, from, fromlen) \ recvfrom(s, b, l, f, from, fromlen) #define PerlSock_select(n, r, w, e, t) select(n, r, w, e, t) @@ -947,8 +947,9 @@ magic_setsig(SV *sv, MAGIC *mg) register char *s; I32 i; SV** svp; + STRLEN len; - s = MgPV(mg,PL_na); + s = MgPV(mg,len); if (*s == '_') { if (strEQ(s,"__DIE__")) svp = &PL_diehook; @@ -975,7 +976,7 @@ magic_setsig(SV *sv, MAGIC *mg) SvREFCNT_dec(PL_psig_ptr[i]); PL_psig_ptr[i] = SvREFCNT_inc(sv); SvTEMP_off(sv); /* Make sure it doesn't go away on us */ - PL_psig_name[i] = newSVpv(s, strlen(s)); + PL_psig_name[i] = newSVpvn(s, len); SvREADONLY_on(PL_psig_name[i]); } if (SvTYPE(sv) == SVt_PVGV || SvROK(sv)) { @@ -985,7 +986,7 @@ magic_setsig(SV *sv, MAGIC *mg) *svp = SvREFCNT_inc(sv); return 0; } - s = SvPV_force(sv,PL_na); + s = SvPV_force(sv,len); if (strEQ(s,"IGNORE")) { if (i) (void)rsignal(i, SIG_IGN); @@ -1005,7 +1006,7 @@ magic_setsig(SV *sv, MAGIC *mg) * tell whether HINT_STRICT_REFS is in force or not. */ if (!strchr(s,':') && !strchr(s,'\'')) - sv_setpv(sv, form("main::%s", s)); + sv_insert(sv, 0, 0, "main::", 6); if (i) (void)rsignal(i, PL_sighandlerp); else @@ -1,2186 +1,3125 @@ +/* !!!!!!! DO NOT EDIT THIS FILE !!!!!!! + This file is built by embed.pl from global.sym, pp.sym, intrpvar.h, + perlvars.h and thrdvar.h. Any changes made here will be lost! +*/ + #ifndef __objXSUB_h__ #define __objXSUB_h__ -/* Varibles */ +/* Variables */ -#undef PL_Sv -#define PL_Sv pPerl->PL_Sv -#undef PL_Xpv -#define PL_Xpv pPerl->PL_Xpv -#undef PL_av_fetch_sv -#define PL_av_fetch_sv pPerl->PL_av_fetch_sv -#undef PL_bodytarget -#define PL_bodytarget pPerl->PL_bodytarget -#undef PL_bostr -#define PL_bostr pPerl->PL_bostr -#undef PL_chopset -#define PL_chopset pPerl->PL_chopset -#undef PL_colors -#define PL_colors pPerl->PL_colors -#undef PL_colorset -#define PL_colorset pPerl->PL_colorset -#undef PL_cred_mutex -#define PL_cred_mutex pPerl->PL_cred_mutex -#undef PL_sv_no -#undef PL_curcop -#define PL_curcop pPerl->PL_curcop -#undef PL_curpad -#define PL_curpad pPerl->PL_curpad -#undef PL_curpm -#define PL_curpm pPerl->PL_curpm -#undef PL_curstack -#define PL_curstack pPerl->PL_curstack -#undef PL_curstackinfo -#define PL_curstackinfo pPerl->PL_curstackinfo -#undef PL_curstash -#define PL_curstash pPerl->PL_curstash -#undef PL_defoutgv -#define PL_defoutgv pPerl->PL_defoutgv -#undef PL_defstash -#define PL_defstash pPerl->PL_defstash -#undef PL_delaymagic -#define PL_delaymagic pPerl->PL_delaymagic -#undef PL_dirty -#define PL_dirty pPerl->PL_dirty -#undef PL_extralen -#define PL_extralen pPerl->PL_extralen -#undef PL_firstgv -#define PL_firstgv pPerl->PL_firstgv -#undef PL_formtarget -#define PL_formtarget pPerl->PL_formtarget -#undef PL_hv_fetch_ent_mh -#define PL_hv_fetch_ent_mh pPerl->PL_hv_fetch_ent_mh -#undef PL_hv_fetch_sv -#define PL_hv_fetch_sv pPerl->PL_hv_fetch_sv -#undef PL_in_eval -#define PL_in_eval pPerl->PL_in_eval -#undef PL_last_in_gv -#define PL_last_in_gv pPerl->PL_last_in_gv -#undef PL_lastgotoprobe -#define PL_lastgotoprobe pPerl->PL_lastgotoprobe -#undef PL_lastscream -#define PL_lastscream pPerl->PL_lastscream -#undef PL_localizing -#define PL_localizing pPerl->PL_localizing -#undef PL_mainstack -#define PL_mainstack pPerl->PL_mainstack -#undef PL_markstack -#define PL_markstack pPerl->PL_markstack -#undef PL_markstack_max -#define PL_markstack_max pPerl->PL_markstack_max -#undef PL_markstack_ptr -#define PL_markstack_ptr pPerl->PL_markstack_ptr -#undef PL_maxscream -#define PL_maxscream pPerl->PL_maxscream -#undef PL_modcount -#define PL_modcount pPerl->PL_modcount -#undef PL_nrs -#define PL_nrs pPerl->PL_nrs -#undef PL_ofs -#define PL_ofs pPerl->PL_ofs -#undef PL_ofslen -#define PL_ofslen pPerl->PL_ofslen -#undef PL_op -#define PL_op pPerl->PL_op -#undef PL_opsave -#define PL_opsave pPerl->PL_opsave -#undef PL_reg_eval_set -#define PL_reg_eval_set pPerl->PL_reg_eval_set -#undef PL_reg_flags -#define PL_reg_flags pPerl->PL_reg_flags -#undef PL_reg_start_tmp -#define PL_reg_start_tmp pPerl->PL_reg_start_tmp -#undef PL_reg_start_tmpl -#define PL_reg_start_tmpl pPerl->PL_reg_start_tmpl -#undef PL_regbol -#define PL_regbol pPerl->PL_regbol -#undef PL_regcc -#define PL_regcc pPerl->PL_regcc +#undef PL_Argv +#define PL_Argv pPerl->PL_Argv +#undef PL_Cmd +#define PL_Cmd pPerl->PL_Cmd +#undef PL_DBcv +#define PL_DBcv pPerl->PL_DBcv +#undef PL_DBgv +#define PL_DBgv pPerl->PL_DBgv +#undef PL_DBline +#define PL_DBline pPerl->PL_DBline +#undef PL_DBsignal +#define PL_DBsignal pPerl->PL_DBsignal +#undef PL_DBsingle +#define PL_DBsingle pPerl->PL_DBsingle +#undef PL_DBsub +#define PL_DBsub pPerl->PL_DBsub +#undef PL_DBtrace +#define PL_DBtrace pPerl->PL_DBtrace +#undef PL_No +#define PL_No pPerl->PL_No +#undef PL_Sv +#define PL_Sv pPerl->PL_Sv +#undef PL_Xpv +#define PL_Xpv pPerl->PL_Xpv +#undef PL_Yes +#define PL_Yes pPerl->PL_Yes +#undef PL_amagic_generation +#define PL_amagic_generation pPerl->PL_amagic_generation +#undef PL_ampergv +#define PL_ampergv pPerl->PL_ampergv +#undef PL_an +#define PL_an pPerl->PL_an +#undef PL_archpat_auto +#define PL_archpat_auto pPerl->PL_archpat_auto +#undef PL_argvgv +#define PL_argvgv pPerl->PL_argvgv +#undef PL_argvoutgv +#define PL_argvoutgv pPerl->PL_argvoutgv +#undef PL_av_fetch_sv +#define PL_av_fetch_sv pPerl->PL_av_fetch_sv +#undef PL_basetime +#define PL_basetime pPerl->PL_basetime +#undef PL_beginav +#define PL_beginav pPerl->PL_beginav +#undef PL_bodytarget +#define PL_bodytarget pPerl->PL_bodytarget +#undef PL_bostr +#define PL_bostr pPerl->PL_bostr +#undef PL_bufend +#define PL_bufend pPerl->PL_bufend +#undef PL_bufptr +#define PL_bufptr pPerl->PL_bufptr +#undef PL_bytecode_iv_overflows +#define PL_bytecode_iv_overflows pPerl->PL_bytecode_iv_overflows +#undef PL_bytecode_obj_list +#define PL_bytecode_obj_list pPerl->PL_bytecode_obj_list +#undef PL_bytecode_obj_list_fill +#define PL_bytecode_obj_list_fill pPerl->PL_bytecode_obj_list_fill +#undef PL_bytecode_pv +#define PL_bytecode_pv pPerl->PL_bytecode_pv +#undef PL_bytecode_sv +#define PL_bytecode_sv pPerl->PL_bytecode_sv +#undef PL_cddir +#define PL_cddir pPerl->PL_cddir +#undef PL_chopset +#define PL_chopset pPerl->PL_chopset +#undef PL_collation_ix +#define PL_collation_ix pPerl->PL_collation_ix +#undef PL_collation_name +#define PL_collation_name pPerl->PL_collation_name +#undef PL_collation_standard +#define PL_collation_standard pPerl->PL_collation_standard +#undef PL_collxfrm_base +#define PL_collxfrm_base pPerl->PL_collxfrm_base +#undef PL_collxfrm_mult +#define PL_collxfrm_mult pPerl->PL_collxfrm_mult +#undef PL_colors +#define PL_colors pPerl->PL_colors +#undef PL_colorset +#define PL_colorset pPerl->PL_colorset +#undef PL_compcv +#define PL_compcv pPerl->PL_compcv +#undef PL_compiling +#define PL_compiling pPerl->PL_compiling +#undef PL_comppad +#define PL_comppad pPerl->PL_comppad +#undef PL_comppad_name +#define PL_comppad_name pPerl->PL_comppad_name +#undef PL_comppad_name_fill +#define PL_comppad_name_fill pPerl->PL_comppad_name_fill +#undef PL_comppad_name_floor +#define PL_comppad_name_floor pPerl->PL_comppad_name_floor +#undef PL_cop_seqmax +#define PL_cop_seqmax pPerl->PL_cop_seqmax +#undef PL_copline +#define PL_copline pPerl->PL_copline +#undef PL_cred_mutex +#define PL_cred_mutex pPerl->PL_cred_mutex +#undef PL_cryptseen +#define PL_cryptseen pPerl->PL_cryptseen +#undef PL_cshlen +#define PL_cshlen pPerl->PL_cshlen +#undef PL_cshname +#define PL_cshname pPerl->PL_cshname +#undef PL_curcop +#define PL_curcop pPerl->PL_curcop +#undef PL_curcopdb +#define PL_curcopdb pPerl->PL_curcopdb +#undef PL_curinterp +#define PL_curinterp pPerl->PL_curinterp +#undef PL_curpad +#define PL_curpad pPerl->PL_curpad +#undef PL_curpm +#define PL_curpm pPerl->PL_curpm +#undef PL_curstack +#define PL_curstack pPerl->PL_curstack +#undef PL_curstackinfo +#define PL_curstackinfo pPerl->PL_curstackinfo +#undef PL_curstash +#define PL_curstash pPerl->PL_curstash +#undef PL_curstname +#define PL_curstname pPerl->PL_curstname +#undef PL_curthr +#define PL_curthr pPerl->PL_curthr +#undef PL_dbargs +#define PL_dbargs pPerl->PL_dbargs +#undef PL_debdelim +#define PL_debdelim pPerl->PL_debdelim +#undef PL_debname +#define PL_debname pPerl->PL_debname +#undef PL_debstash +#define PL_debstash pPerl->PL_debstash +#undef PL_debug +#define PL_debug pPerl->PL_debug +#undef PL_defgv +#define PL_defgv pPerl->PL_defgv +#undef PL_defoutgv +#define PL_defoutgv pPerl->PL_defoutgv +#undef PL_defstash +#define PL_defstash pPerl->PL_defstash +#undef PL_delaymagic +#define PL_delaymagic pPerl->PL_delaymagic +#undef PL_diehook +#define PL_diehook pPerl->PL_diehook +#undef PL_dirty +#define PL_dirty pPerl->PL_dirty +#undef PL_dlevel +#define PL_dlevel pPerl->PL_dlevel +#undef PL_dlmax +#define PL_dlmax pPerl->PL_dlmax +#undef PL_do_undump +#define PL_do_undump pPerl->PL_do_undump +#undef PL_doextract +#define PL_doextract pPerl->PL_doextract +#undef PL_doswitches +#define PL_doswitches pPerl->PL_doswitches +#undef PL_dowarn +#define PL_dowarn pPerl->PL_dowarn +#undef PL_dumplvl +#define PL_dumplvl pPerl->PL_dumplvl +#undef PL_e_script +#define PL_e_script pPerl->PL_e_script +#undef PL_egid +#define PL_egid pPerl->PL_egid +#undef PL_endav +#define PL_endav pPerl->PL_endav +#undef PL_envgv +#define PL_envgv pPerl->PL_envgv +#undef PL_errgv +#define PL_errgv pPerl->PL_errgv +#undef PL_error_count +#define PL_error_count pPerl->PL_error_count +#undef PL_euid +#define PL_euid pPerl->PL_euid +#undef PL_eval_cond +#define PL_eval_cond pPerl->PL_eval_cond +#undef PL_eval_mutex +#define PL_eval_mutex pPerl->PL_eval_mutex +#undef PL_eval_owner +#define PL_eval_owner pPerl->PL_eval_owner +#undef PL_eval_root +#define PL_eval_root pPerl->PL_eval_root +#undef PL_eval_start +#define PL_eval_start pPerl->PL_eval_start +#undef PL_evalseq +#define PL_evalseq pPerl->PL_evalseq +#undef PL_exitlist +#define PL_exitlist pPerl->PL_exitlist +#undef PL_exitlistlen +#define PL_exitlistlen pPerl->PL_exitlistlen +#undef PL_expect +#define PL_expect pPerl->PL_expect +#undef PL_extralen +#define PL_extralen pPerl->PL_extralen +#undef PL_fdpid +#define PL_fdpid pPerl->PL_fdpid +#undef PL_filemode +#define PL_filemode pPerl->PL_filemode +#undef PL_firstgv +#define PL_firstgv pPerl->PL_firstgv +#undef PL_forkprocess +#define PL_forkprocess pPerl->PL_forkprocess +#undef PL_formfeed +#define PL_formfeed pPerl->PL_formfeed +#undef PL_formtarget +#define PL_formtarget pPerl->PL_formtarget +#undef PL_generation +#define PL_generation pPerl->PL_generation +#undef PL_gensym +#define PL_gensym pPerl->PL_gensym +#undef PL_gid +#define PL_gid pPerl->PL_gid +#undef PL_globalstash +#define PL_globalstash pPerl->PL_globalstash +#undef PL_he_root +#define PL_he_root pPerl->PL_he_root +#undef PL_hexdigit +#define PL_hexdigit pPerl->PL_hexdigit +#undef PL_hintgv +#define PL_hintgv pPerl->PL_hintgv +#undef PL_hints +#define PL_hints pPerl->PL_hints +#undef PL_hv_fetch_ent_mh +#define PL_hv_fetch_ent_mh pPerl->PL_hv_fetch_ent_mh +#undef PL_hv_fetch_sv +#define PL_hv_fetch_sv pPerl->PL_hv_fetch_sv +#undef PL_in_clean_all +#define PL_in_clean_all pPerl->PL_in_clean_all +#undef PL_in_clean_objs +#define PL_in_clean_objs pPerl->PL_in_clean_objs +#undef PL_in_eval +#define PL_in_eval pPerl->PL_in_eval +#undef PL_in_my +#define PL_in_my pPerl->PL_in_my +#undef PL_in_my_stash +#define PL_in_my_stash pPerl->PL_in_my_stash +#undef PL_incgv +#define PL_incgv pPerl->PL_incgv +#undef PL_initav +#define PL_initav pPerl->PL_initav +#undef PL_inplace +#define PL_inplace pPerl->PL_inplace +#undef PL_last_in_gv +#define PL_last_in_gv pPerl->PL_last_in_gv +#undef PL_last_lop +#define PL_last_lop pPerl->PL_last_lop +#undef PL_last_lop_op +#define PL_last_lop_op pPerl->PL_last_lop_op +#undef PL_last_proto +#define PL_last_proto pPerl->PL_last_proto +#undef PL_last_swash_hv +#define PL_last_swash_hv pPerl->PL_last_swash_hv +#undef PL_last_swash_key +#define PL_last_swash_key pPerl->PL_last_swash_key +#undef PL_last_swash_klen +#define PL_last_swash_klen pPerl->PL_last_swash_klen +#undef PL_last_swash_slen +#define PL_last_swash_slen pPerl->PL_last_swash_slen +#undef PL_last_swash_tmps +#define PL_last_swash_tmps pPerl->PL_last_swash_tmps +#undef PL_last_uni +#define PL_last_uni pPerl->PL_last_uni +#undef PL_lastfd +#define PL_lastfd pPerl->PL_lastfd +#undef PL_lastgotoprobe +#define PL_lastgotoprobe pPerl->PL_lastgotoprobe +#undef PL_lastscream +#define PL_lastscream pPerl->PL_lastscream +#undef PL_lastsize +#define PL_lastsize pPerl->PL_lastsize +#undef PL_lastspbase +#define PL_lastspbase pPerl->PL_lastspbase +#undef PL_laststatval +#define PL_laststatval pPerl->PL_laststatval +#undef PL_laststype +#define PL_laststype pPerl->PL_laststype +#undef PL_leftgv +#define PL_leftgv pPerl->PL_leftgv +#undef PL_lex_brackets +#define PL_lex_brackets pPerl->PL_lex_brackets +#undef PL_lex_brackstack +#define PL_lex_brackstack pPerl->PL_lex_brackstack +#undef PL_lex_casemods +#define PL_lex_casemods pPerl->PL_lex_casemods +#undef PL_lex_casestack +#define PL_lex_casestack pPerl->PL_lex_casestack +#undef PL_lex_defer +#define PL_lex_defer pPerl->PL_lex_defer +#undef PL_lex_dojoin +#define PL_lex_dojoin pPerl->PL_lex_dojoin +#undef PL_lex_expect +#define PL_lex_expect pPerl->PL_lex_expect +#undef PL_lex_fakebrack +#define PL_lex_fakebrack pPerl->PL_lex_fakebrack +#undef PL_lex_formbrack +#define PL_lex_formbrack pPerl->PL_lex_formbrack +#undef PL_lex_inpat +#define PL_lex_inpat pPerl->PL_lex_inpat +#undef PL_lex_inwhat +#define PL_lex_inwhat pPerl->PL_lex_inwhat +#undef PL_lex_op +#define PL_lex_op pPerl->PL_lex_op +#undef PL_lex_repl +#define PL_lex_repl pPerl->PL_lex_repl +#undef PL_lex_starts +#define PL_lex_starts pPerl->PL_lex_starts +#undef PL_lex_state +#define PL_lex_state pPerl->PL_lex_state +#undef PL_lex_stuff +#define PL_lex_stuff pPerl->PL_lex_stuff +#undef PL_lineary +#define PL_lineary pPerl->PL_lineary +#undef PL_linestart +#define PL_linestart pPerl->PL_linestart +#undef PL_linestr +#define PL_linestr pPerl->PL_linestr +#undef PL_localizing +#define PL_localizing pPerl->PL_localizing +#undef PL_localpatches +#define PL_localpatches pPerl->PL_localpatches +#undef PL_main_cv +#define PL_main_cv pPerl->PL_main_cv +#undef PL_main_root +#define PL_main_root pPerl->PL_main_root +#undef PL_main_start +#define PL_main_start pPerl->PL_main_start +#undef PL_mainstack +#define PL_mainstack pPerl->PL_mainstack +#undef PL_malloc_mutex +#define PL_malloc_mutex pPerl->PL_malloc_mutex +#undef PL_markstack +#define PL_markstack pPerl->PL_markstack +#undef PL_markstack_max +#define PL_markstack_max pPerl->PL_markstack_max +#undef PL_markstack_ptr +#define PL_markstack_ptr pPerl->PL_markstack_ptr +#undef PL_max_intro_pending +#define PL_max_intro_pending pPerl->PL_max_intro_pending +#undef PL_maxo +#define PL_maxo pPerl->PL_maxo +#undef PL_maxscream +#define PL_maxscream pPerl->PL_maxscream +#undef PL_maxsysfd +#define PL_maxsysfd pPerl->PL_maxsysfd +#undef PL_mess_sv +#define PL_mess_sv pPerl->PL_mess_sv +#undef PL_min_intro_pending +#define PL_min_intro_pending pPerl->PL_min_intro_pending +#undef PL_minus_F +#define PL_minus_F pPerl->PL_minus_F +#undef PL_minus_a +#define PL_minus_a pPerl->PL_minus_a +#undef PL_minus_c +#define PL_minus_c pPerl->PL_minus_c +#undef PL_minus_l +#define PL_minus_l pPerl->PL_minus_l +#undef PL_minus_n +#define PL_minus_n pPerl->PL_minus_n +#undef PL_minus_p +#define PL_minus_p pPerl->PL_minus_p +#undef PL_modcount +#define PL_modcount pPerl->PL_modcount +#undef PL_modglobal +#define PL_modglobal pPerl->PL_modglobal +#undef PL_multi_close +#define PL_multi_close pPerl->PL_multi_close +#undef PL_multi_end +#define PL_multi_end pPerl->PL_multi_end +#undef PL_multi_open +#define PL_multi_open pPerl->PL_multi_open +#undef PL_multi_start +#define PL_multi_start pPerl->PL_multi_start +#undef PL_multiline +#define PL_multiline pPerl->PL_multiline +#undef PL_mystrk +#define PL_mystrk pPerl->PL_mystrk +#undef PL_na +#define PL_na pPerl->PL_na +#undef PL_nexttoke +#define PL_nexttoke pPerl->PL_nexttoke +#undef PL_nexttype +#define PL_nexttype pPerl->PL_nexttype +#undef PL_nextval +#define PL_nextval pPerl->PL_nextval +#undef PL_nice_chunk +#define PL_nice_chunk pPerl->PL_nice_chunk +#undef PL_nice_chunk_size +#define PL_nice_chunk_size pPerl->PL_nice_chunk_size +#undef PL_ninterps +#define PL_ninterps pPerl->PL_ninterps +#undef PL_nomemok +#define PL_nomemok pPerl->PL_nomemok +#undef PL_nrs +#define PL_nrs pPerl->PL_nrs +#undef PL_nthreads +#define PL_nthreads pPerl->PL_nthreads +#undef PL_nthreads_cond +#define PL_nthreads_cond pPerl->PL_nthreads_cond +#undef PL_numeric_local +#define PL_numeric_local pPerl->PL_numeric_local +#undef PL_numeric_name +#define PL_numeric_name pPerl->PL_numeric_name +#undef PL_numeric_standard +#define PL_numeric_standard pPerl->PL_numeric_standard +#undef PL_ofmt +#define PL_ofmt pPerl->PL_ofmt +#undef PL_ofs +#define PL_ofs pPerl->PL_ofs +#undef PL_ofslen +#define PL_ofslen pPerl->PL_ofslen +#undef PL_oldbufptr +#define PL_oldbufptr pPerl->PL_oldbufptr +#undef PL_oldlastpm +#define PL_oldlastpm pPerl->PL_oldlastpm +#undef PL_oldname +#define PL_oldname pPerl->PL_oldname +#undef PL_oldoldbufptr +#define PL_oldoldbufptr pPerl->PL_oldoldbufptr +#undef PL_op +#define PL_op pPerl->PL_op +#undef PL_op_mask +#define PL_op_mask pPerl->PL_op_mask +#undef PL_op_seqmax +#define PL_op_seqmax pPerl->PL_op_seqmax +#undef PL_opsave +#define PL_opsave pPerl->PL_opsave +#undef PL_origalen +#define PL_origalen pPerl->PL_origalen +#undef PL_origargc +#define PL_origargc pPerl->PL_origargc +#undef PL_origargv +#define PL_origargv pPerl->PL_origargv +#undef PL_origenviron +#define PL_origenviron pPerl->PL_origenviron +#undef PL_origfilename +#define PL_origfilename pPerl->PL_origfilename +#undef PL_ors +#define PL_ors pPerl->PL_ors +#undef PL_orslen +#define PL_orslen pPerl->PL_orslen +#undef PL_osname +#define PL_osname pPerl->PL_osname +#undef PL_pad_reset_pending +#define PL_pad_reset_pending pPerl->PL_pad_reset_pending +#undef PL_padix +#define PL_padix pPerl->PL_padix +#undef PL_padix_floor +#define PL_padix_floor pPerl->PL_padix_floor +#undef PL_parsehook +#define PL_parsehook pPerl->PL_parsehook +#undef PL_patchlevel +#define PL_patchlevel pPerl->PL_patchlevel +#undef PL_patleave +#define PL_patleave pPerl->PL_patleave +#undef PL_pending_ident +#define PL_pending_ident pPerl->PL_pending_ident +#undef PL_perl_destruct_level +#define PL_perl_destruct_level pPerl->PL_perl_destruct_level +#undef PL_perldb +#define PL_perldb pPerl->PL_perldb +#undef PL_piDir +#define PL_piDir pPerl->PL_piDir +#undef PL_piENV +#define PL_piENV pPerl->PL_piENV +#undef PL_piLIO +#define PL_piLIO pPerl->PL_piLIO +#undef PL_piMem +#define PL_piMem pPerl->PL_piMem +#undef PL_piProc +#define PL_piProc pPerl->PL_piProc +#undef PL_piSock +#define PL_piSock pPerl->PL_piSock +#undef PL_piStdIO +#define PL_piStdIO pPerl->PL_piStdIO +#undef PL_pidstatus +#define PL_pidstatus pPerl->PL_pidstatus +#undef PL_preambleav +#define PL_preambleav pPerl->PL_preambleav +#undef PL_preambled +#define PL_preambled pPerl->PL_preambled +#undef PL_preprocess +#define PL_preprocess pPerl->PL_preprocess +#undef PL_profiledata +#define PL_profiledata pPerl->PL_profiledata #undef PL_reg_call_cc -#define PL_reg_call_cc pPerl->PL_reg_call_cc +#define PL_reg_call_cc pPerl->PL_reg_call_cc +#undef PL_reg_eval_set +#define PL_reg_eval_set pPerl->PL_reg_eval_set +#undef PL_reg_flags +#define PL_reg_flags pPerl->PL_reg_flags #undef PL_reg_re -#define PL_reg_re pPerl->PL_reg_re -#undef PL_regcode -#define PL_regcode pPerl->PL_regcode -#undef PL_regcomp_parse -#define PL_regcomp_parse pPerl->PL_regcomp_parse -#undef PL_regcomp_rx -#define PL_regcomp_rx pPerl->PL_regcomp_rx -#undef PL_regcompp -#define PL_regcompp pPerl->PL_regcompp -#undef PL_regdata -#define PL_regdata pPerl->PL_regdata -#undef PL_regdummy -#define PL_regdummy pPerl->PL_regdummy -#undef PL_regendp -#define PL_regendp pPerl->PL_regendp -#undef PL_regeol -#define PL_regeol pPerl->PL_regeol -#undef PL_regexecp -#define PL_regexecp pPerl->PL_regexecp -#undef PL_regflags -#define PL_regflags pPerl->PL_regflags -#undef PL_regindent -#define PL_regindent pPerl->PL_regindent -#undef PL_reginput -#define PL_reginput pPerl->PL_reginput -#undef PL_reginterp_cnt -#define PL_reginterp_cnt pPerl->PL_reginterp_cnt -#undef PL_reglastparen -#define PL_reglastparen pPerl->PL_reglastparen -#undef PL_regnarrate -#define PL_regnarrate pPerl->PL_regnarrate -#undef PL_regnaughty -#define PL_regnaughty pPerl->PL_regnaughty -#undef PL_regnpar -#define PL_regnpar pPerl->PL_regnpar -#undef PL_regprecomp -#define PL_regprecomp pPerl->PL_regprecomp -#undef PL_regprev -#define PL_regprev pPerl->PL_regprev -#undef PL_regprogram -#define PL_regprogram pPerl->PL_regprogram -#undef PL_regsawback -#define PL_regsawback pPerl->PL_regsawback -#undef PL_regseen -#define PL_regseen pPerl->PL_regseen -#undef PL_regsize -#define PL_regsize pPerl->PL_regsize -#undef PL_regstartp -#define PL_regstartp pPerl->PL_regstartp -#undef PL_regtill -#define PL_regtill pPerl->PL_regtill -#undef PL_regxend -#define PL_regxend pPerl->PL_regxend -#undef PL_restartop -#define PL_restartop pPerl->PL_restartop -#undef PL_retstack -#define PL_retstack pPerl->PL_retstack -#undef PL_retstack_ix -#define PL_retstack_ix pPerl->PL_retstack_ix -#undef PL_retstack_max -#define PL_retstack_max pPerl->PL_retstack_max -#undef PL_rs -#define PL_rs pPerl->PL_rs -#undef PL_savestack -#define PL_savestack pPerl->PL_savestack -#undef PL_savestack_ix -#define PL_savestack_ix pPerl->PL_savestack_ix -#undef PL_savestack_max -#define PL_savestack_max pPerl->PL_savestack_max -#undef PL_scopestack -#define PL_scopestack pPerl->PL_scopestack -#undef PL_scopestack_ix -#define PL_scopestack_ix pPerl->PL_scopestack_ix -#undef PL_scopestack_max -#define PL_scopestack_max pPerl->PL_scopestack_max -#undef PL_screamfirst -#define PL_screamfirst pPerl->PL_screamfirst -#undef PL_screamnext -#define PL_screamnext pPerl->PL_screamnext -#undef PL_secondgv -#define PL_secondgv pPerl->PL_secondgv -#undef PL_seen_evals -#define PL_seen_evals pPerl->PL_seen_evals -#undef PL_seen_zerolen -#define PL_seen_zerolen pPerl->PL_seen_zerolen -#undef PL_sortcop -#define PL_sortcop pPerl->PL_sortcop -#undef PL_sortcxix -#define PL_sortcxix pPerl->PL_sortcxix -#undef PL_sortstash -#define PL_sortstash pPerl->PL_sortstash -#undef PL_stack_base -#define PL_stack_base pPerl->PL_stack_base -#undef PL_stack_max -#define PL_stack_max pPerl->PL_stack_max -#undef PL_stack_sp -#define PL_stack_sp pPerl->PL_stack_sp -#undef PL_start_env -#define PL_start_env pPerl->PL_start_env -#undef PL_statbuf -#define PL_statbuf pPerl->PL_statbuf -#undef PL_statcache -#define PL_statcache pPerl->PL_statcache -#undef PL_statgv -#define PL_statgv pPerl->PL_statgv -#undef PL_statname -#define PL_statname pPerl->PL_statname -#undef PL_tainted -#define PL_tainted pPerl->PL_tainted -#undef PL_timesbuf -#define PL_timesbuf pPerl->PL_timesbuf -#undef PL_tmps_floor -#define PL_tmps_floor pPerl->PL_tmps_floor -#undef PL_tmps_ix -#define PL_tmps_ix pPerl->PL_tmps_ix -#undef PL_tmps_max -#define PL_tmps_max pPerl->PL_tmps_max -#undef PL_tmps_stack -#define PL_tmps_stack pPerl->PL_tmps_stack -#undef PL_top_env -#define PL_top_env pPerl->PL_top_env -#undef PL_toptarget -#define PL_toptarget pPerl->PL_toptarget -#undef PL_Argv -#define PL_Argv pPerl->PL_Argv -#undef PL_Cmd -#define PL_Cmd pPerl->PL_Cmd -#undef PL_DBcv -#define PL_DBcv pPerl->PL_DBcv -#undef PL_DBgv -#define PL_DBgv pPerl->PL_DBgv -#undef PL_DBline -#define PL_DBline pPerl->PL_DBline -#undef PL_DBsignal -#define PL_DBsignal pPerl->PL_DBsignal -#undef PL_DBsingle -#define PL_DBsingle pPerl->PL_DBsingle -#undef PL_DBsub -#define PL_DBsub pPerl->PL_DBsub -#undef PL_DBtrace -#define PL_DBtrace pPerl->PL_DBtrace -#undef PL_ampergv -#define PL_ampergv pPerl->PL_ampergv -#undef PL_archpat_auto -#define PL_archpat_auto pPerl->PL_archpat_auto -#undef PL_argvgv -#define PL_argvgv pPerl->PL_argvgv -#undef PL_argvoutgv -#define PL_argvoutgv pPerl->PL_argvoutgv -#undef PL_basetime -#define PL_basetime pPerl->PL_basetime -#undef PL_beginav -#define PL_beginav pPerl->PL_beginav -#undef PL_cddir -#define PL_cddir pPerl->PL_cddir -#undef PL_compcv -#define PL_compcv pPerl->PL_compcv -#undef PL_compiling -#define PL_compiling pPerl->PL_compiling -#undef PL_comppad -#define PL_comppad pPerl->PL_comppad -#undef PL_comppad_name -#define PL_comppad_name pPerl->PL_comppad_name -#undef PL_comppad_name_fill -#define PL_comppad_name_fill pPerl->PL_comppad_name_fill -#undef PL_comppad_name_floor -#define PL_comppad_name_floor pPerl->PL_comppad_name_floor -#undef PL_copline -#define PL_copline pPerl->PL_copline -#undef PL_curcopdb -#define PL_curcopdb pPerl->PL_curcopdb -#undef PL_curstname -#define PL_curstname pPerl->PL_curstname -#undef PL_dbargs -#define PL_dbargs pPerl->PL_dbargs -#undef PL_debdelim -#define PL_debdelim pPerl->PL_debdelim -#undef PL_debname -#define PL_debname pPerl->PL_debname -#undef PL_debstash -#define PL_debstash pPerl->PL_debstash -#undef PL_defgv -#define PL_defgv pPerl->PL_defgv -#undef PL_diehook -#define PL_diehook pPerl->PL_diehook -#undef PL_dlevel -#define PL_dlevel pPerl->PL_dlevel -#undef PL_dlmax -#define PL_dlmax pPerl->PL_dlmax -#undef PL_doextract -#define PL_doextract pPerl->PL_doextract -#undef PL_doswitches -#define PL_doswitches pPerl->PL_doswitches -#undef PL_dowarn -#define PL_dowarn pPerl->PL_dowarn -#undef PL_dumplvl -#define PL_dumplvl pPerl->PL_dumplvl -#undef PL_e_script -#define PL_e_script pPerl->PL_e_script -#undef PL_endav -#define PL_endav pPerl->PL_endav -#undef PL_envgv -#define PL_envgv pPerl->PL_envgv -#undef PL_errgv -#define PL_errgv pPerl->PL_errgv -#undef PL_eval_root -#define PL_eval_root pPerl->PL_eval_root -#undef PL_eval_start -#define PL_eval_start pPerl->PL_eval_start -#undef PL_exitlist -#define PL_exitlist pPerl->PL_exitlist -#undef PL_exitlistlen -#define PL_exitlistlen pPerl->PL_exitlistlen -#undef PL_fdpid -#define PL_fdpid pPerl->PL_fdpid -#undef PL_filemode -#define PL_filemode pPerl->PL_filemode -#undef PL_forkprocess -#define PL_forkprocess pPerl->PL_forkprocess -#undef PL_formfeed -#define PL_formfeed pPerl->PL_formfeed -#undef PL_generation -#define PL_generation pPerl->PL_generation -#undef PL_gensym -#define PL_gensym pPerl->PL_gensym -#undef PL_globalstash -#define PL_globalstash pPerl->PL_globalstash -#undef PL_hintgv -#define PL_hintgv pPerl->PL_hintgv -#undef PL_in_clean_all -#define PL_in_clean_all pPerl->PL_in_clean_all -#undef PL_in_clean_objs -#define PL_in_clean_objs pPerl->PL_in_clean_objs -#undef PL_incgv -#define PL_incgv pPerl->PL_incgv -#undef PL_initav -#define PL_initav pPerl->PL_initav -#undef PL_inplace -#define PL_inplace pPerl->PL_inplace -#undef PL_last_proto -#define PL_last_proto pPerl->PL_last_proto -#undef PL_lastfd -#define PL_lastfd pPerl->PL_lastfd -#undef PL_lastsize -#define PL_lastsize pPerl->PL_lastsize -#undef PL_lastspbase -#define PL_lastspbase pPerl->PL_lastspbase -#undef PL_laststatval -#define PL_laststatval pPerl->PL_laststatval -#undef PL_laststype -#define PL_laststype pPerl->PL_laststype -#undef PL_leftgv -#define PL_leftgv pPerl->PL_leftgv -#undef PL_lineary -#define PL_lineary pPerl->PL_lineary -#undef PL_linestart -#define PL_linestart pPerl->PL_linestart -#undef PL_localpatches -#define PL_localpatches pPerl->PL_localpatches -#undef PL_main_cv -#define PL_main_cv pPerl->PL_main_cv -#undef PL_main_root -#define PL_main_root pPerl->PL_main_root -#undef PL_main_start -#define PL_main_start pPerl->PL_main_start -#undef PL_maxsysfd -#define PL_maxsysfd pPerl->PL_maxsysfd -#undef PL_mess_sv -#define PL_mess_sv pPerl->PL_mess_sv -#undef PL_minus_F -#define PL_minus_F pPerl->PL_minus_F -#undef PL_minus_a -#define PL_minus_a pPerl->PL_minus_a -#undef PL_minus_c -#define PL_minus_c pPerl->PL_minus_c -#undef PL_minus_l -#define PL_minus_l pPerl->PL_minus_l -#undef PL_minus_n -#define PL_minus_n pPerl->PL_minus_n -#undef PL_minus_p -#define PL_minus_p pPerl->PL_minus_p -#undef PL_modglobal -#define PL_modglobal pPerl->PL_modglobal -#undef PL_multiline -#define PL_multiline pPerl->PL_multiline -#undef PL_mystrk -#define PL_mystrk pPerl->PL_mystrk -#undef PL_ofmt -#define PL_ofmt pPerl->PL_ofmt -#undef PL_oldlastpm -#define PL_oldlastpm pPerl->PL_oldlastpm -#undef PL_oldname -#define PL_oldname pPerl->PL_oldname -#undef PL_op_mask -#define PL_op_mask pPerl->PL_op_mask -#undef PL_origargc -#define PL_origargc pPerl->PL_origargc -#undef PL_origargv -#define PL_origargv pPerl->PL_origargv -#undef PL_origfilename -#define PL_origfilename pPerl->PL_origfilename -#undef PL_ors -#define PL_ors pPerl->PL_ors -#undef PL_orslen -#define PL_orslen pPerl->PL_orslen -#undef PL_parsehook -#define PL_parsehook pPerl->PL_parsehook -#undef PL_patchlevel -#define PL_patchlevel pPerl->PL_patchlevel -#undef PL_pending_ident -#define PL_pending_ident pPerl->PL_pending_ident -#undef PL_perl_destruct_level -#define PL_perl_destruct_level pPerl->PL_perl_destruct_level -#undef PL_perldb -#define PL_perldb pPerl->PL_perldb -#undef PL_preambleav -#define PL_preambleav pPerl->PL_preambleav -#undef PL_preambled -#define PL_preambled pPerl->PL_preambled -#undef PL_preprocess -#define PL_preprocess pPerl->PL_preprocess -#undef PL_profiledata -#define PL_profiledata pPerl->PL_profiledata -#undef PL_replgv -#define PL_replgv pPerl->PL_replgv -#undef PL_rightgv -#define PL_rightgv pPerl->PL_rightgv -#undef PL_rsfp -#define PL_rsfp pPerl->PL_rsfp -#undef PL_rsfp_filters -#define PL_rsfp_filters pPerl->PL_rsfp_filters -#undef PL_sawampersand -#define PL_sawampersand pPerl->PL_sawampersand -#undef PL_sawstudy -#define PL_sawstudy pPerl->PL_sawstudy -#undef PL_sawvec -#define PL_sawvec pPerl->PL_sawvec -#undef PL_siggv -#define PL_siggv pPerl->PL_siggv -#undef PL_splitstr -#define PL_splitstr pPerl->PL_splitstr -#undef PL_statusvalue -#define PL_statusvalue pPerl->PL_statusvalue -#undef PL_statusvalue_vms -#define PL_statusvalue_vms pPerl->PL_statusvalue_vms -#undef PL_stdingv -#define PL_stdingv pPerl->PL_stdingv -#undef PL_strchop -#define PL_strchop pPerl->PL_strchop -#undef PL_strtab -#define PL_strtab pPerl->PL_strtab +#define PL_reg_re pPerl->PL_reg_re +#undef PL_reg_start_tmp +#define PL_reg_start_tmp pPerl->PL_reg_start_tmp +#undef PL_reg_start_tmpl +#define PL_reg_start_tmpl pPerl->PL_reg_start_tmpl +#undef PL_regbol +#define PL_regbol pPerl->PL_regbol +#undef PL_regcc +#define PL_regcc pPerl->PL_regcc +#undef PL_regcode +#define PL_regcode pPerl->PL_regcode +#undef PL_regcomp_parse +#define PL_regcomp_parse pPerl->PL_regcomp_parse +#undef PL_regcomp_rx +#define PL_regcomp_rx pPerl->PL_regcomp_rx +#undef PL_regcompp +#define PL_regcompp pPerl->PL_regcompp +#undef PL_regdata +#define PL_regdata pPerl->PL_regdata +#undef PL_regdummy +#define PL_regdummy pPerl->PL_regdummy +#undef PL_regendp +#define PL_regendp pPerl->PL_regendp +#undef PL_regeol +#define PL_regeol pPerl->PL_regeol +#undef PL_regexecp +#define PL_regexecp pPerl->PL_regexecp +#undef PL_regflags +#define PL_regflags pPerl->PL_regflags +#undef PL_regindent +#define PL_regindent pPerl->PL_regindent +#undef PL_reginput +#define PL_reginput pPerl->PL_reginput +#undef PL_reginterp_cnt +#define PL_reginterp_cnt pPerl->PL_reginterp_cnt +#undef PL_reglastparen +#define PL_reglastparen pPerl->PL_reglastparen +#undef PL_regnarrate +#define PL_regnarrate pPerl->PL_regnarrate +#undef PL_regnaughty +#define PL_regnaughty pPerl->PL_regnaughty +#undef PL_regnpar +#define PL_regnpar pPerl->PL_regnpar +#undef PL_regprecomp +#define PL_regprecomp pPerl->PL_regprecomp +#undef PL_regprev +#define PL_regprev pPerl->PL_regprev +#undef PL_regprogram +#define PL_regprogram pPerl->PL_regprogram +#undef PL_regsawback +#define PL_regsawback pPerl->PL_regsawback +#undef PL_regseen +#define PL_regseen pPerl->PL_regseen +#undef PL_regsize +#define PL_regsize pPerl->PL_regsize +#undef PL_regstartp +#define PL_regstartp pPerl->PL_regstartp +#undef PL_regtill +#define PL_regtill pPerl->PL_regtill +#undef PL_regxend +#define PL_regxend pPerl->PL_regxend +#undef PL_replgv +#define PL_replgv pPerl->PL_replgv +#undef PL_restartop +#define PL_restartop pPerl->PL_restartop +#undef PL_retstack +#define PL_retstack pPerl->PL_retstack +#undef PL_retstack_ix +#define PL_retstack_ix pPerl->PL_retstack_ix +#undef PL_retstack_max +#define PL_retstack_max pPerl->PL_retstack_max +#undef PL_rightgv +#define PL_rightgv pPerl->PL_rightgv +#undef PL_rs +#define PL_rs pPerl->PL_rs +#undef PL_rsfp +#define PL_rsfp pPerl->PL_rsfp +#undef PL_rsfp_filters +#define PL_rsfp_filters pPerl->PL_rsfp_filters +#undef PL_runops +#define PL_runops pPerl->PL_runops +#undef PL_savestack +#define PL_savestack pPerl->PL_savestack +#undef PL_savestack_ix +#define PL_savestack_ix pPerl->PL_savestack_ix +#undef PL_savestack_max +#define PL_savestack_max pPerl->PL_savestack_max +#undef PL_sawampersand +#define PL_sawampersand pPerl->PL_sawampersand +#undef PL_sawstudy +#define PL_sawstudy pPerl->PL_sawstudy +#undef PL_sawvec +#define PL_sawvec pPerl->PL_sawvec +#undef PL_scopestack +#define PL_scopestack pPerl->PL_scopestack +#undef PL_scopestack_ix +#define PL_scopestack_ix pPerl->PL_scopestack_ix +#undef PL_scopestack_max +#define PL_scopestack_max pPerl->PL_scopestack_max +#undef PL_screamfirst +#define PL_screamfirst pPerl->PL_screamfirst +#undef PL_screamnext +#define PL_screamnext pPerl->PL_screamnext +#undef PL_secondgv +#define PL_secondgv pPerl->PL_secondgv +#undef PL_seen_evals +#define PL_seen_evals pPerl->PL_seen_evals +#undef PL_seen_zerolen +#define PL_seen_zerolen pPerl->PL_seen_zerolen +#undef PL_sh_path +#define PL_sh_path pPerl->PL_sh_path +#undef PL_siggv +#define PL_siggv pPerl->PL_siggv +#undef PL_sighandlerp +#define PL_sighandlerp pPerl->PL_sighandlerp +#undef PL_sortcop +#define PL_sortcop pPerl->PL_sortcop +#undef PL_sortcxix +#define PL_sortcxix pPerl->PL_sortcxix +#undef PL_sortstash +#define PL_sortstash pPerl->PL_sortstash +#undef PL_specialsv_list +#define PL_specialsv_list pPerl->PL_specialsv_list +#undef PL_splitstr +#define PL_splitstr pPerl->PL_splitstr +#undef PL_stack_base +#define PL_stack_base pPerl->PL_stack_base +#undef PL_stack_max +#define PL_stack_max pPerl->PL_stack_max +#undef PL_stack_sp +#define PL_stack_sp pPerl->PL_stack_sp +#undef PL_start_env +#define PL_start_env pPerl->PL_start_env +#undef PL_statbuf +#define PL_statbuf pPerl->PL_statbuf +#undef PL_statcache +#define PL_statcache pPerl->PL_statcache +#undef PL_statgv +#define PL_statgv pPerl->PL_statgv +#undef PL_statname +#define PL_statname pPerl->PL_statname +#undef PL_statusvalue +#define PL_statusvalue pPerl->PL_statusvalue +#undef PL_statusvalue_vms +#define PL_statusvalue_vms pPerl->PL_statusvalue_vms +#undef PL_stdingv +#define PL_stdingv pPerl->PL_stdingv +#undef PL_strchop +#define PL_strchop pPerl->PL_strchop +#undef PL_strtab +#define PL_strtab pPerl->PL_strtab #undef PL_strtab_mutex -#define PL_strtab_mutex pPerl->PL_strtab_mutex -#undef PL_sub_generation -#define PL_sub_generation pPerl->PL_sub_generation -#undef PL_sublex_info -#define PL_sublex_info pPerl->PL_sublex_info -#undef PL_sv_arenaroot -#define PL_sv_arenaroot pPerl->PL_sv_arenaroot -#undef PL_sv_count -#define PL_sv_count pPerl->PL_sv_count -#undef PL_sv_objcount -#define PL_sv_objcount pPerl->PL_sv_objcount -#undef PL_sv_root -#define PL_sv_root pPerl->PL_sv_root -#undef PL_sys_intern -#define PL_sys_intern pPerl->PL_sys_intern -#undef PL_tainting -#define PL_tainting pPerl->PL_tainting -#undef PL_threadnum -#define PL_threadnum pPerl->PL_threadnum -#undef PL_thrsv -#define PL_thrsv pPerl->PL_thrsv -#undef PL_unsafe -#define PL_unsafe pPerl->PL_unsafe -#undef PL_warnhook -#define PL_warnhook pPerl->PL_warnhook -#undef PL_No -#define PL_No pPerl->PL_No -#undef PL_Yes -#define PL_Yes pPerl->PL_Yes -#undef PL_amagic_generation -#define PL_amagic_generation pPerl->PL_amagic_generation -#undef PL_an -#define PL_an pPerl->PL_an -#undef PL_bufend -#define PL_bufend pPerl->PL_bufend -#undef PL_bufptr -#define PL_bufptr pPerl->PL_bufptr -#undef PL_collation_ix -#define PL_collation_ix pPerl->PL_collation_ix -#undef PL_collation_name -#define PL_collation_name pPerl->PL_collation_name -#undef PL_collation_standard -#define PL_collation_standard pPerl->PL_collation_standard -#undef PL_collxfrm_base -#define PL_collxfrm_base pPerl->PL_collxfrm_base -#undef PL_collxfrm_mult -#define PL_collxfrm_mult pPerl->PL_collxfrm_mult -#undef PL_cop_seqmax -#define PL_cop_seqmax pPerl->PL_cop_seqmax -#undef PL_cryptseen -#define PL_cryptseen pPerl->PL_cryptseen -#undef PL_cshlen -#define PL_cshlen pPerl->PL_cshlen -#undef PL_cshname -#define PL_cshname pPerl->PL_cshname -#undef PL_curinterp -#define PL_curinterp pPerl->PL_curinterp -#undef PL_curthr -#define PL_curthr pPerl->PL_curthr -#undef PL_debug -#define PL_debug pPerl->PL_debug -#undef PL_do_undump -#define PL_do_undump pPerl->PL_do_undump -#undef PL_egid -#define PL_egid pPerl->PL_egid -#undef PL_error_count -#define PL_error_count pPerl->PL_error_count -#undef PL_euid -#define PL_euid pPerl->PL_euid -#undef PL_eval_cond -#define PL_eval_cond pPerl->PL_eval_cond -#undef PL_eval_mutex -#define PL_eval_mutex pPerl->PL_eval_mutex -#undef PL_eval_owner -#define PL_eval_owner pPerl->PL_eval_owner -#undef PL_evalseq -#define PL_evalseq pPerl->PL_evalseq -#undef PL_expect -#define PL_expect pPerl->PL_expect -#undef PL_gid -#define PL_gid pPerl->PL_gid -#undef PL_he_root -#define PL_he_root pPerl->PL_he_root -#undef PL_hexdigit -#define PL_hexdigit pPerl->PL_hexdigit -#undef PL_hints -#define PL_hints pPerl->PL_hints -#undef PL_in_my -#define PL_in_my pPerl->PL_in_my -#undef PL_in_my_stash -#define PL_in_my_stash pPerl->PL_in_my_stash -#undef PL_last_lop -#define PL_last_lop pPerl->PL_last_lop -#undef PL_last_lop_op -#define PL_last_lop_op pPerl->PL_last_lop_op -#undef PL_last_uni -#define PL_last_uni pPerl->PL_last_uni -#undef PL_lex_brackets -#define PL_lex_brackets pPerl->PL_lex_brackets -#undef PL_lex_brackstack -#define PL_lex_brackstack pPerl->PL_lex_brackstack -#undef PL_lex_casemods -#define PL_lex_casemods pPerl->PL_lex_casemods -#undef PL_lex_casestack -#define PL_lex_casestack pPerl->PL_lex_casestack -#undef PL_lex_defer -#define PL_lex_defer pPerl->PL_lex_defer -#undef PL_lex_dojoin -#define PL_lex_dojoin pPerl->PL_lex_dojoin -#undef PL_lex_expect -#define PL_lex_expect pPerl->PL_lex_expect -#undef PL_lex_fakebrack -#define PL_lex_fakebrack pPerl->PL_lex_fakebrack -#undef PL_lex_formbrack -#define PL_lex_formbrack pPerl->PL_lex_formbrack -#undef PL_lex_inpat -#define PL_lex_inpat pPerl->PL_lex_inpat -#undef PL_lex_inwhat -#define PL_lex_inwhat pPerl->PL_lex_inwhat -#undef PL_lex_op -#define PL_lex_op pPerl->PL_lex_op -#undef PL_lex_repl -#define PL_lex_repl pPerl->PL_lex_repl -#undef PL_lex_starts -#define PL_lex_starts pPerl->PL_lex_starts -#undef PL_lex_state -#define PL_lex_state pPerl->PL_lex_state -#undef PL_lex_stuff -#define PL_lex_stuff pPerl->PL_lex_stuff -#undef PL_linestr -#define PL_linestr pPerl->PL_linestr -#undef PL_malloc_mutex -#define PL_malloc_mutex pPerl->PL_malloc_mutex -#undef PL_max_intro_pending -#define PL_max_intro_pending pPerl->PL_max_intro_pending -#undef PL_maxo -#define PL_maxo pPerl->PL_maxo -#undef PL_min_intro_pending -#define PL_min_intro_pending pPerl->PL_min_intro_pending -#undef PL_multi_close -#define PL_multi_close pPerl->PL_multi_close -#undef PL_multi_end -#define PL_multi_end pPerl->PL_multi_end -#undef PL_multi_open -#define PL_multi_open pPerl->PL_multi_open -#undef PL_multi_start -#define PL_multi_start pPerl->PL_multi_start -#undef PL_na -#define PL_na pPerl->PL_na -#undef PL_nexttoke -#define PL_nexttoke pPerl->PL_nexttoke -#undef PL_nexttype -#define PL_nexttype pPerl->PL_nexttype -#undef PL_nextval -#define PL_nextval pPerl->PL_nextval -#undef PL_nice_chunk -#define PL_nice_chunk pPerl->PL_nice_chunk -#undef PL_nice_chunk_size -#define PL_nice_chunk_size pPerl->PL_nice_chunk_size -#undef PL_ninterps -#define PL_ninterps pPerl->PL_ninterps -#undef PL_nomemok -#define PL_nomemok pPerl->PL_nomemok -#undef PL_nthreads -#define PL_nthreads pPerl->PL_nthreads -#undef PL_nthreads_cond -#define PL_nthreads_cond pPerl->PL_nthreads_cond -#undef PL_numeric_local -#define PL_numeric_local pPerl->PL_numeric_local -#undef PL_numeric_name -#define PL_numeric_name pPerl->PL_numeric_name -#undef PL_numeric_standard -#define PL_numeric_standard pPerl->PL_numeric_standard -#undef PL_oldbufptr -#define PL_oldbufptr pPerl->PL_oldbufptr -#undef PL_oldoldbufptr -#define PL_oldoldbufptr pPerl->PL_oldoldbufptr -#undef PL_op_seqmax -#define PL_op_seqmax pPerl->PL_op_seqmax -#undef PL_origalen -#define PL_origalen pPerl->PL_origalen -#undef PL_origenviron -#define PL_origenviron pPerl->PL_origenviron -#undef PL_osname -#define PL_osname pPerl->PL_osname -#undef PL_pad_reset_pending -#define PL_pad_reset_pending pPerl->PL_pad_reset_pending -#undef PL_padix -#define PL_padix pPerl->PL_padix -#undef PL_padix_floor -#define PL_padix_floor pPerl->PL_padix_floor -#undef PL_patleave -#define PL_patleave pPerl->PL_patleave -#undef PL_pidstatus -#define PL_pidstatus pPerl->PL_pidstatus -#undef PL_runops -#define PL_runops pPerl->PL_runops -#undef PL_sh_path -#define PL_sh_path pPerl->PL_sh_path -#undef PL_sighandlerp -#define PL_sighandlerp pPerl->PL_sighandlerp -#undef PL_specialsv_list -#define PL_specialsv_list pPerl->PL_specialsv_list -#undef PL_subline -#define PL_subline pPerl->PL_subline -#undef PL_subname -#define PL_subname pPerl->PL_subname -#undef PL_sv_mutex -#define PL_sv_mutex pPerl->PL_sv_mutex -#undef PL_sv_no -#define PL_sv_no pPerl->PL_sv_no -#undef PL_sv_undef -#define PL_sv_undef pPerl->PL_sv_undef -#undef PL_sv_yes -#define PL_sv_yes pPerl->PL_sv_yes -#undef PL_svref_mutex -#define PL_svref_mutex pPerl->PL_svref_mutex -#undef PL_thisexpr -#define PL_thisexpr pPerl->PL_thisexpr -#undef PL_thr_key -#define PL_thr_key pPerl->PL_thr_key -#undef PL_threads_mutex -#define PL_threads_mutex pPerl->PL_threads_mutex -#undef PL_threadsv_names -#define PL_threadsv_names pPerl->PL_threadsv_names -#undef PL_tokenbuf -#define PL_tokenbuf pPerl->PL_tokenbuf -#undef PL_uid -#define PL_uid pPerl->PL_uid -#undef PL_xiv_arenaroot -#define PL_xiv_arenaroot pPerl->PL_xiv_arenaroot -#undef PL_xiv_root -#define PL_xiv_root pPerl->PL_xiv_root -#undef PL_xnv_root -#define PL_xnv_root pPerl->PL_xnv_root -#undef PL_xpv_root -#define PL_xpv_root pPerl->PL_xpv_root -#undef PL_xrv_root -#define PL_xrv_root pPerl->PL_xrv_root +#define PL_strtab_mutex pPerl->PL_strtab_mutex +#undef PL_sub_generation +#define PL_sub_generation pPerl->PL_sub_generation +#undef PL_sublex_info +#define PL_sublex_info pPerl->PL_sublex_info +#undef PL_subline +#define PL_subline pPerl->PL_subline +#undef PL_subname +#define PL_subname pPerl->PL_subname +#undef PL_sv_arenaroot +#define PL_sv_arenaroot pPerl->PL_sv_arenaroot +#undef PL_sv_count +#define PL_sv_count pPerl->PL_sv_count +#undef PL_sv_mutex +#define PL_sv_mutex pPerl->PL_sv_mutex +#undef PL_sv_no +#define PL_sv_no pPerl->PL_sv_no +#undef PL_sv_objcount +#define PL_sv_objcount pPerl->PL_sv_objcount +#undef PL_sv_root +#define PL_sv_root pPerl->PL_sv_root +#undef PL_sv_undef +#define PL_sv_undef pPerl->PL_sv_undef +#undef PL_sv_yes +#define PL_sv_yes pPerl->PL_sv_yes +#undef PL_svref_mutex +#define PL_svref_mutex pPerl->PL_svref_mutex +#undef PL_sys_intern +#define PL_sys_intern pPerl->PL_sys_intern +#undef PL_tainted +#define PL_tainted pPerl->PL_tainted +#undef PL_tainting +#define PL_tainting pPerl->PL_tainting +#undef PL_thisexpr +#define PL_thisexpr pPerl->PL_thisexpr +#undef PL_thr_key +#define PL_thr_key pPerl->PL_thr_key +#undef PL_threadnum +#define PL_threadnum pPerl->PL_threadnum +#undef PL_threads_mutex +#define PL_threads_mutex pPerl->PL_threads_mutex +#undef PL_threadsv_names +#define PL_threadsv_names pPerl->PL_threadsv_names +#undef PL_thrsv +#define PL_thrsv pPerl->PL_thrsv +#undef PL_timesbuf +#define PL_timesbuf pPerl->PL_timesbuf +#undef PL_tmps_floor +#define PL_tmps_floor pPerl->PL_tmps_floor +#undef PL_tmps_ix +#define PL_tmps_ix pPerl->PL_tmps_ix +#undef PL_tmps_max +#define PL_tmps_max pPerl->PL_tmps_max +#undef PL_tmps_stack +#define PL_tmps_stack pPerl->PL_tmps_stack +#undef PL_tokenbuf +#define PL_tokenbuf pPerl->PL_tokenbuf +#undef PL_top_env +#define PL_top_env pPerl->PL_top_env +#undef PL_toptarget +#define PL_toptarget pPerl->PL_toptarget +#undef PL_uid +#define PL_uid pPerl->PL_uid +#undef PL_unsafe +#define PL_unsafe pPerl->PL_unsafe +#undef PL_utf8_alnum +#define PL_utf8_alnum pPerl->PL_utf8_alnum +#undef PL_utf8_alpha +#define PL_utf8_alpha pPerl->PL_utf8_alpha +#undef PL_utf8_digit +#define PL_utf8_digit pPerl->PL_utf8_digit +#undef PL_utf8_lower +#define PL_utf8_lower pPerl->PL_utf8_lower +#undef PL_utf8_mark +#define PL_utf8_mark pPerl->PL_utf8_mark +#undef PL_utf8_print +#define PL_utf8_print pPerl->PL_utf8_print +#undef PL_utf8_space +#define PL_utf8_space pPerl->PL_utf8_space +#undef PL_utf8_tolower +#define PL_utf8_tolower pPerl->PL_utf8_tolower +#undef PL_utf8_totitle +#define PL_utf8_totitle pPerl->PL_utf8_totitle +#undef PL_utf8_toupper +#define PL_utf8_toupper pPerl->PL_utf8_toupper +#undef PL_utf8_upper +#define PL_utf8_upper pPerl->PL_utf8_upper +#undef PL_warnhook +#define PL_warnhook pPerl->PL_warnhook +#undef PL_watchaddr +#define PL_watchaddr pPerl->PL_watchaddr +#undef PL_watchok +#define PL_watchok pPerl->PL_watchok +#undef PL_xiv_arenaroot +#define PL_xiv_arenaroot pPerl->PL_xiv_arenaroot +#undef PL_xiv_root +#define PL_xiv_root pPerl->PL_xiv_root +#undef PL_xnv_root +#define PL_xnv_root pPerl->PL_xnv_root +#undef PL_xpv_root +#define PL_xpv_root pPerl->PL_xpv_root +#undef PL_xrv_root +#define PL_xrv_root pPerl->PL_xrv_root +#undef PL_yychar +#define PL_yychar pPerl->PL_yychar +#undef PL_yydebug +#define PL_yydebug pPerl->PL_yydebug +#undef PL_yyerrflag +#define PL_yyerrflag pPerl->PL_yyerrflag +#undef PL_yylval +#define PL_yylval pPerl->PL_yylval +#undef PL_yynerrs +#define PL_yynerrs pPerl->PL_yynerrs +#undef PL_yyval +#define PL_yyval pPerl->PL_yyval /* Functions */ -#undef amagic_call -#define amagic_call pPerl->Perl_amagic_call -#undef Perl_GetVars -#define Perl_GetVars pPerl->Perl_GetVars #undef Gv_AMupdate -#define Gv_AMupdate pPerl->Perl_Gv_AMupdate +#define Gv_AMupdate pPerl->Perl_Gv_AMupdate +#undef add_data +#define add_data pPerl->Perl_add_data +#undef amagic_call +#define amagic_call pPerl->Perl_amagic_call +#undef amagic_cmp +#define amagic_cmp pPerl->Perl_amagic_cmp +#undef amagic_cmp_locale +#define amagic_cmp_locale pPerl->Perl_amagic_cmp_locale +#undef ao +#define ao pPerl->Perl_ao #undef append_elem -#define append_elem pPerl->Perl_append_elem +#define append_elem pPerl->Perl_append_elem #undef append_list -#define append_list pPerl->Perl_append_list +#define append_list pPerl->Perl_append_list #undef apply -#define apply pPerl->Perl_apply +#define apply pPerl->Perl_apply +#undef asIV +#define asIV pPerl->Perl_asIV +#undef asUV +#define asUV pPerl->Perl_asUV #undef assertref -#define assertref pPerl->Perl_assertref +#define assertref pPerl->Perl_assertref #undef av_clear -#define av_clear pPerl->Perl_av_clear +#define av_clear pPerl->Perl_av_clear #undef av_extend -#define av_extend pPerl->Perl_av_extend +#define av_extend pPerl->Perl_av_extend #undef av_fake -#define av_fake pPerl->Perl_av_fake +#define av_fake pPerl->Perl_av_fake #undef av_fetch -#define av_fetch pPerl->Perl_av_fetch +#define av_fetch pPerl->Perl_av_fetch #undef av_fill -#define av_fill pPerl->Perl_av_fill +#define av_fill pPerl->Perl_av_fill #undef av_len -#define av_len pPerl->Perl_av_len +#define av_len pPerl->Perl_av_len #undef av_make -#define av_make pPerl->Perl_av_make +#define av_make pPerl->Perl_av_make #undef av_pop -#define av_pop pPerl->Perl_av_pop +#define av_pop pPerl->Perl_av_pop #undef av_push -#define av_push pPerl->Perl_av_push +#define av_push pPerl->Perl_av_push #undef av_reify -#define av_reify pPerl->Perl_av_reify +#define av_reify pPerl->Perl_av_reify #undef av_shift -#define av_shift pPerl->Perl_av_shift +#define av_shift pPerl->Perl_av_shift #undef av_store -#define av_store pPerl->Perl_av_store +#define av_store pPerl->Perl_av_store #undef av_undef -#define av_undef pPerl->Perl_av_undef +#define av_undef pPerl->Perl_av_undef #undef av_unshift -#define av_unshift pPerl->Perl_av_unshift +#define av_unshift pPerl->Perl_av_unshift #undef avhv_exists_ent -#define avhv_exists_ent pPerl->Perl_avhv_exists_ent +#define avhv_exists_ent pPerl->Perl_avhv_exists_ent #undef avhv_fetch_ent -#define avhv_fetch_ent pPerl->Perl_avhv_fetch_ent +#define avhv_fetch_ent pPerl->Perl_avhv_fetch_ent +#undef avhv_index_sv +#define avhv_index_sv pPerl->Perl_avhv_index_sv #undef avhv_iternext -#define avhv_iternext pPerl->Perl_avhv_iternext +#define avhv_iternext pPerl->Perl_avhv_iternext #undef avhv_iterval -#define avhv_iterval pPerl->Perl_avhv_iterval +#define avhv_iterval pPerl->Perl_avhv_iterval #undef avhv_keys -#define avhv_keys pPerl->Perl_avhv_keys +#define avhv_keys pPerl->Perl_avhv_keys +#undef bad_type +#define bad_type pPerl->Perl_bad_type #undef bind_match -#define bind_match pPerl->Perl_bind_match +#define bind_match pPerl->Perl_bind_match #undef block_end -#define block_end pPerl->Perl_block_end +#define block_end pPerl->Perl_block_end #undef block_gimme -#define block_gimme pPerl->Perl_block_gimme +#define block_gimme pPerl->Perl_block_gimme #undef block_start -#define block_start pPerl->Perl_block_start +#define block_start pPerl->Perl_block_start +#undef boot_core_UNIVERSAL +#define boot_core_UNIVERSAL pPerl->Perl_boot_core_UNIVERSAL +#undef bset_obj_store +#define bset_obj_store pPerl->Perl_bset_obj_store +#undef bset_obj_store +#define bset_obj_store pPerl->Perl_bset_obj_store #undef byterun -#define byterun pPerl->Perl_byterun +#define byterun pPerl->Perl_byterun +#undef cache_re +#define cache_re pPerl->Perl_cache_re #undef call_list -#define call_list pPerl->Perl_call_list +#define call_list pPerl->Perl_call_list #undef cando -#define cando pPerl->Perl_cando +#define cando pPerl->Perl_cando +#undef cast_i32 +#define cast_i32 pPerl->Perl_cast_i32 +#undef cast_iv +#define cast_iv pPerl->Perl_cast_iv #undef cast_ulong -#define cast_ulong pPerl->Perl_cast_ulong -#undef checkcomma -#define checkcomma pPerl->Perl_checkcomma +#define cast_ulong pPerl->Perl_cast_ulong +#undef cast_uv +#define cast_uv pPerl->Perl_cast_uv +#undef check_uni +#define check_uni pPerl->Perl_check_uni #undef check_uni -#define check_uni pPerl->Perl_check_uni +#define check_uni pPerl->Perl_check_uni +#undef checkcomma +#define checkcomma pPerl->Perl_checkcomma +#undef checkcomma +#define checkcomma pPerl->Perl_checkcomma +#undef ck_aelem +#define ck_aelem pPerl->Perl_ck_aelem +#undef ck_anoncode +#define ck_anoncode pPerl->Perl_ck_anoncode +#undef ck_bitop +#define ck_bitop pPerl->Perl_ck_bitop #undef ck_concat -#define ck_concat pPerl->Perl_ck_concat +#define ck_concat pPerl->Perl_ck_concat #undef ck_delete -#define ck_delete pPerl->Perl_ck_delete +#define ck_delete pPerl->Perl_ck_delete #undef ck_eof -#define ck_eof pPerl->Perl_ck_eof +#define ck_eof pPerl->Perl_ck_eof #undef ck_eval -#define ck_eval pPerl->Perl_ck_eval +#define ck_eval pPerl->Perl_ck_eval #undef ck_exec -#define ck_exec pPerl->Perl_ck_exec -#undef ck_formline -#define ck_formline pPerl->Perl_ck_formline +#define ck_exec pPerl->Perl_ck_exec +#undef ck_exists +#define ck_exists pPerl->Perl_ck_exists #undef ck_ftst -#define ck_ftst pPerl->Perl_ck_ftst +#define ck_ftst pPerl->Perl_ck_ftst #undef ck_fun -#define ck_fun pPerl->Perl_ck_fun +#define ck_fun pPerl->Perl_ck_fun +#undef ck_fun_locale +#define ck_fun_locale pPerl->Perl_ck_fun_locale #undef ck_glob -#define ck_glob pPerl->Perl_ck_glob +#define ck_glob pPerl->Perl_ck_glob #undef ck_grep -#define ck_grep pPerl->Perl_ck_grep -#undef ck_gvconst -#define ck_gvconst pPerl->Perl_ck_gvconst +#define ck_grep pPerl->Perl_ck_grep #undef ck_index -#define ck_index pPerl->Perl_ck_index +#define ck_index pPerl->Perl_ck_index #undef ck_lengthconst -#define ck_lengthconst pPerl->Perl_ck_lengthconst +#define ck_lengthconst pPerl->Perl_ck_lengthconst #undef ck_lfun -#define ck_lfun pPerl->Perl_ck_lfun +#define ck_lfun pPerl->Perl_ck_lfun #undef ck_listiob -#define ck_listiob pPerl->Perl_ck_listiob +#define ck_listiob pPerl->Perl_ck_listiob #undef ck_match -#define ck_match pPerl->Perl_ck_match +#define ck_match pPerl->Perl_ck_match #undef ck_null -#define ck_null pPerl->Perl_ck_null +#define ck_null pPerl->Perl_ck_null #undef ck_repeat -#define ck_repeat pPerl->Perl_ck_repeat +#define ck_repeat pPerl->Perl_ck_repeat #undef ck_require -#define ck_require pPerl->Perl_ck_require -#undef ck_retarget -#define ck_retarget pPerl->Perl_ck_retarget +#define ck_require pPerl->Perl_ck_require #undef ck_rfun -#define ck_rfun pPerl->Perl_ck_rfun +#define ck_rfun pPerl->Perl_ck_rfun #undef ck_rvconst -#define ck_rvconst pPerl->Perl_ck_rvconst +#define ck_rvconst pPerl->Perl_ck_rvconst +#undef ck_scmp +#define ck_scmp pPerl->Perl_ck_scmp #undef ck_select -#define ck_select pPerl->Perl_ck_select +#define ck_select pPerl->Perl_ck_select #undef ck_shift -#define ck_shift pPerl->Perl_ck_shift +#define ck_shift pPerl->Perl_ck_shift #undef ck_sort -#define ck_sort pPerl->Perl_ck_sort +#define ck_sort pPerl->Perl_ck_sort #undef ck_spair -#define ck_spair pPerl->Perl_ck_spair +#define ck_spair pPerl->Perl_ck_spair #undef ck_split -#define ck_split pPerl->Perl_ck_split +#define ck_split pPerl->Perl_ck_split #undef ck_subr -#define ck_subr pPerl->Perl_ck_subr +#define ck_subr pPerl->Perl_ck_subr #undef ck_svconst -#define ck_svconst pPerl->Perl_ck_svconst +#define ck_svconst pPerl->Perl_ck_svconst #undef ck_trunc -#define ck_trunc pPerl->Perl_ck_trunc +#define ck_trunc pPerl->Perl_ck_trunc #undef condpair_magic -#define condpair_magic pPerl->Perl_condpair_magic +#define condpair_magic pPerl->Perl_condpair_magic #undef convert -#define convert pPerl->Perl_convert -#undef cpytill -#define cpytill pPerl->Perl_cpytill +#define convert pPerl->Perl_convert #undef croak -#define croak pPerl->Perl_croak +#define croak pPerl->Perl_croak #undef cv_ckproto -#define cv_ckproto pPerl->Perl_cv_ckproto +#define cv_ckproto pPerl->Perl_cv_ckproto #undef cv_clone -#define cv_clone pPerl->Perl_cv_clone +#define cv_clone pPerl->Perl_cv_clone +#undef cv_clone2 +#define cv_clone2 pPerl->Perl_cv_clone2 #undef cv_const_sv -#define cv_const_sv pPerl->Perl_cv_const_sv +#define cv_const_sv pPerl->Perl_cv_const_sv #undef cv_undef -#define cv_undef pPerl->Perl_cv_undef +#define cv_undef pPerl->Perl_cv_undef #undef cx_dump -#define cx_dump pPerl->Perl_cx_dump +#define cx_dump pPerl->Perl_cx_dump #undef cxinc -#define cxinc pPerl->Perl_cxinc +#define cxinc pPerl->Perl_cxinc #undef deb -#define deb pPerl->Perl_deb +#define deb pPerl->Perl_deb #undef deb_growlevel -#define deb_growlevel pPerl->Perl_deb_growlevel -#undef debprofdump -#define debprofdump pPerl->Perl_debprofdump +#define deb_growlevel pPerl->Perl_deb_growlevel #undef debop -#define debop pPerl->Perl_debop +#define debop pPerl->Perl_debop +#undef debprof +#define debprof pPerl->Perl_debprof +#undef debprofdump +#define debprofdump pPerl->Perl_debprofdump #undef debstack -#define debstack pPerl->Perl_debstack +#define debstack pPerl->Perl_debstack #undef debstackptrs -#define debstackptrs pPerl->Perl_debstackptrs +#define debstackptrs pPerl->Perl_debstackptrs +#undef del_he +#define del_he pPerl->Perl_del_he +#undef del_sv +#define del_sv pPerl->Perl_del_sv +#undef del_xiv +#define del_xiv pPerl->Perl_del_xiv +#undef del_xnv +#define del_xnv pPerl->Perl_del_xnv +#undef del_xpv +#define del_xpv pPerl->Perl_del_xpv +#undef del_xrv +#define del_xrv pPerl->Perl_del_xrv #undef delimcpy -#define delimcpy pPerl->Perl_delimcpy +#define delimcpy pPerl->Perl_delimcpy +#undef depcom +#define depcom pPerl->Perl_depcom #undef deprecate -#define deprecate pPerl->Perl_deprecate +#define deprecate pPerl->Perl_deprecate #undef die -#define die pPerl->Perl_die +#define die pPerl->Perl_die #undef die_where -#define die_where pPerl->Perl_die_where -#undef dopoptoeval -#define dopoptoeval pPerl->Perl_dopoptoeval -#undef dounwind -#define dounwind pPerl->Perl_dounwind +#define die_where pPerl->Perl_die_where +#undef div128 +#define div128 pPerl->Perl_div128 #undef do_aexec -#define do_aexec pPerl->Perl_do_aexec +#define do_aexec pPerl->Perl_do_aexec +#undef do_aspawn +#define do_aspawn pPerl->Perl_do_aspawn #undef do_binmode -#define do_binmode pPerl->Perl_do_binmode +#define do_binmode pPerl->Perl_do_binmode #undef do_chomp -#define do_chomp pPerl->Perl_do_chomp +#define do_chomp pPerl->Perl_do_chomp #undef do_chop -#define do_chop pPerl->Perl_do_chop +#define do_chop pPerl->Perl_do_chop +#undef do_clean_all +#define do_clean_all pPerl->Perl_do_clean_all +#undef do_clean_named_objs +#define do_clean_named_objs pPerl->Perl_do_clean_named_objs +#undef do_clean_objs +#define do_clean_objs pPerl->Perl_do_clean_objs #undef do_close -#define do_close pPerl->Perl_do_close +#define do_close pPerl->Perl_do_close #undef do_eof -#define do_eof pPerl->Perl_do_eof +#define do_eof pPerl->Perl_do_eof #undef do_exec -#define do_exec pPerl->Perl_do_exec +#define do_exec pPerl->Perl_do_exec #undef do_execfree -#define do_execfree pPerl->Perl_do_execfree +#define do_execfree pPerl->Perl_do_execfree +#undef do_ipcctl +#define do_ipcctl pPerl->Perl_do_ipcctl +#undef do_ipcget +#define do_ipcget pPerl->Perl_do_ipcget #undef do_join -#define do_join pPerl->Perl_do_join +#define do_join pPerl->Perl_do_join #undef do_kv -#define do_kv pPerl->Perl_do_kv +#define do_kv pPerl->Perl_do_kv +#undef do_msgrcv +#define do_msgrcv pPerl->Perl_do_msgrcv +#undef do_msgsnd +#define do_msgsnd pPerl->Perl_do_msgsnd #undef do_open -#define do_open pPerl->Perl_do_open +#define do_open pPerl->Perl_do_open #undef do_pipe -#define do_pipe pPerl->Perl_do_pipe +#define do_pipe pPerl->Perl_do_pipe #undef do_print -#define do_print pPerl->Perl_do_print +#define do_print pPerl->Perl_do_print #undef do_readline -#define do_readline pPerl->Perl_do_readline +#define do_readline pPerl->Perl_do_readline +#undef do_report_used +#define do_report_used pPerl->Perl_do_report_used #undef do_seek -#define do_seek pPerl->Perl_do_seek +#define do_seek pPerl->Perl_do_seek +#undef do_semop +#define do_semop pPerl->Perl_do_semop +#undef do_shmio +#define do_shmio pPerl->Perl_do_shmio #undef do_sprintf -#define do_sprintf pPerl->Perl_do_sprintf +#define do_sprintf pPerl->Perl_do_sprintf #undef do_sysseek -#define do_sysseek pPerl->Perl_do_sysseek +#define do_sysseek pPerl->Perl_do_sysseek #undef do_tell -#define do_tell pPerl->Perl_do_tell +#define do_tell pPerl->Perl_do_tell #undef do_trans -#define do_trans pPerl->Perl_do_trans +#define do_trans pPerl->Perl_do_trans +#undef do_trans_CC_complex +#define do_trans_CC_complex pPerl->Perl_do_trans_CC_complex +#undef do_trans_CC_count +#define do_trans_CC_count pPerl->Perl_do_trans_CC_count +#undef do_trans_CC_simple +#define do_trans_CC_simple pPerl->Perl_do_trans_CC_simple +#undef do_trans_CU_simple +#define do_trans_CU_simple pPerl->Perl_do_trans_CU_simple +#undef do_trans_CU_trivial +#define do_trans_CU_trivial pPerl->Perl_do_trans_CU_trivial +#undef do_trans_UC_simple +#define do_trans_UC_simple pPerl->Perl_do_trans_UC_simple +#undef do_trans_UC_trivial +#define do_trans_UC_trivial pPerl->Perl_do_trans_UC_trivial +#undef do_trans_UU_complex +#define do_trans_UU_complex pPerl->Perl_do_trans_UU_complex +#undef do_trans_UU_count +#define do_trans_UU_count pPerl->Perl_do_trans_UU_count +#undef do_trans_UU_simple +#define do_trans_UU_simple pPerl->Perl_do_trans_UU_simple #undef do_vecset -#define do_vecset pPerl->Perl_do_vecset +#define do_vecset pPerl->Perl_do_vecset #undef do_vop -#define do_vop pPerl->Perl_do_vop +#define do_vop pPerl->Perl_do_vop +#undef docatch +#define docatch pPerl->Perl_docatch +#undef doencodes +#define doencodes pPerl->Perl_doencodes +#undef doeval +#define doeval pPerl->Perl_doeval #undef dofile -#define dofile pPerl->Perl_dofile +#define dofile pPerl->Perl_dofile +#undef dofindlabel +#define dofindlabel pPerl->Perl_dofindlabel +#undef dofindlabel +#define dofindlabel pPerl->Perl_dofindlabel +#undef doform +#define doform pPerl->Perl_doform +#undef doparseform +#define doparseform pPerl->Perl_doparseform +#undef dopoptoeval +#define dopoptoeval pPerl->Perl_dopoptoeval +#undef dopoptoeval +#define dopoptoeval pPerl->Perl_dopoptoeval +#undef dopoptolabel +#define dopoptolabel pPerl->Perl_dopoptolabel +#undef dopoptoloop +#define dopoptoloop pPerl->Perl_dopoptoloop +#undef dopoptosub +#define dopoptosub pPerl->Perl_dopoptosub +#undef dopoptosub_at +#define dopoptosub_at pPerl->Perl_dopoptosub_at +#undef dounwind +#define dounwind pPerl->Perl_dounwind #undef dowantarray -#define dowantarray pPerl->Perl_dowantarray +#define dowantarray pPerl->Perl_dowantarray +#undef dump +#define dump pPerl->Perl_dump #undef dump_all -#define dump_all pPerl->Perl_dump_all +#define dump_all pPerl->Perl_dump_all #undef dump_eval -#define dump_eval pPerl->Perl_dump_eval +#define dump_eval pPerl->Perl_dump_eval #undef dump_fds -#define dump_fds pPerl->Perl_dump_fds +#define dump_fds pPerl->Perl_dump_fds #undef dump_form -#define dump_form pPerl->Perl_dump_form +#define dump_form pPerl->Perl_dump_form #undef dump_gv -#define dump_gv pPerl->Perl_dump_gv +#define dump_gv pPerl->Perl_dump_gv #undef dump_mstats -#define dump_mstats pPerl->Perl_dump_mstats +#define dump_mstats pPerl->Perl_dump_mstats #undef dump_op -#define dump_op pPerl->Perl_dump_op -#undef dump_pm -#define dump_pm pPerl->Perl_dump_pm +#define dump_op pPerl->Perl_dump_op #undef dump_packsubs -#define dump_packsubs pPerl->Perl_dump_packsubs +#define dump_packsubs pPerl->Perl_dump_packsubs +#undef dump_pm +#define dump_pm pPerl->Perl_dump_pm #undef dump_sub -#define dump_sub pPerl->Perl_dump_sub +#define dump_sub pPerl->Perl_dump_sub +#undef dumpuntil +#define dumpuntil pPerl->Perl_dumpuntil +#undef emulate_eaccess +#define emulate_eaccess pPerl->Perl_emulate_eaccess #undef fbm_compile -#define fbm_compile pPerl->Perl_fbm_compile +#define fbm_compile pPerl->Perl_fbm_compile #undef fbm_instr -#define fbm_instr pPerl->Perl_fbm_instr +#define fbm_instr pPerl->Perl_fbm_instr +#undef fetch_gv +#define fetch_gv pPerl->Perl_fetch_gv +#undef fetch_io +#define fetch_io pPerl->Perl_fetch_io #undef filter_add -#define filter_add pPerl->Perl_filter_add +#define filter_add pPerl->Perl_filter_add #undef filter_del -#define filter_del pPerl->Perl_filter_del +#define filter_del pPerl->Perl_filter_del +#undef filter_gets +#define filter_gets pPerl->Perl_filter_gets #undef filter_read -#define filter_read pPerl->Perl_filter_read -#undef find_threadsv -#define find_threadsv pPerl->Perl_find_threadsv +#define filter_read pPerl->Perl_filter_read +#undef find_beginning +#define find_beginning pPerl->Perl_find_beginning #undef find_script -#define find_script pPerl->Perl_find_script +#define find_script pPerl->Perl_find_script +#undef find_threadsv +#define find_threadsv pPerl->Perl_find_threadsv +#undef fold_constants +#define fold_constants pPerl->Perl_fold_constants +#undef forbid_setid +#define forbid_setid pPerl->Perl_forbid_setid +#undef force_ident +#define force_ident pPerl->Perl_force_ident #undef force_ident -#define force_ident pPerl->Perl_force_ident +#define force_ident pPerl->Perl_force_ident #undef force_list -#define force_list pPerl->Perl_force_list +#define force_list pPerl->Perl_force_list +#undef force_next +#define force_next pPerl->Perl_force_next #undef force_next -#define force_next pPerl->Perl_force_next +#define force_next pPerl->Perl_force_next +#undef force_version +#define force_version pPerl->Perl_force_version #undef force_word -#define force_word pPerl->Perl_force_word +#define force_word pPerl->Perl_force_word +#undef force_word +#define force_word pPerl->Perl_force_word #undef form -#define form pPerl->Perl_form -#undef fold_constants -#define fold_constants pPerl->Perl_fold_constants +#define form pPerl->Perl_form #undef fprintf -#define fprintf pPerl->Perl_fprintf +#define fprintf pPerl->Perl_fprintf #undef free_tmps -#define free_tmps pPerl->Perl_free_tmps +#define free_tmps pPerl->Perl_free_tmps #undef gen_constant_list -#define gen_constant_list pPerl->Perl_gen_constant_list +#define gen_constant_list pPerl->Perl_gen_constant_list +#undef get_db_sub +#define get_db_sub pPerl->Perl_get_db_sub +#undef get_no_modify +#define get_no_modify pPerl->Perl_get_no_modify #undef get_op_descs -#define get_op_descs pPerl->Perl_get_op_descs +#define get_op_descs pPerl->Perl_get_op_descs #undef get_op_names -#define get_op_names pPerl->Perl_get_op_names -#undef get_no_modify -#define get_no_modify pPerl->Perl_get_no_modify +#define get_op_names pPerl->Perl_get_op_names #undef get_opargs -#define get_opargs pPerl->Perl_get_opargs +#define get_opargs pPerl->Perl_get_opargs #undef get_specialsv_list -#define get_specialsv_list pPerl->Perl_get_specialsv_list +#define get_specialsv_list pPerl->Perl_get_specialsv_list #undef get_vtbl -#define get_vtbl pPerl->Perl_get_vtbl +#define get_vtbl pPerl->Perl_get_vtbl #undef gp_free -#define gp_free pPerl->Perl_gp_free +#define gp_free pPerl->Perl_gp_free #undef gp_ref -#define gp_ref pPerl->Perl_gp_ref +#define gp_ref pPerl->Perl_gp_ref #undef gv_AVadd -#define gv_AVadd pPerl->Perl_gv_AVadd +#define gv_AVadd pPerl->Perl_gv_AVadd #undef gv_HVadd -#define gv_HVadd pPerl->Perl_gv_HVadd +#define gv_HVadd pPerl->Perl_gv_HVadd #undef gv_IOadd -#define gv_IOadd pPerl->Perl_gv_IOadd +#define gv_IOadd pPerl->Perl_gv_IOadd #undef gv_autoload4 -#define gv_autoload4 pPerl->Perl_gv_autoload4 +#define gv_autoload4 pPerl->Perl_gv_autoload4 #undef gv_check -#define gv_check pPerl->Perl_gv_check +#define gv_check pPerl->Perl_gv_check #undef gv_efullname -#define gv_efullname pPerl->Perl_gv_efullname +#define gv_efullname pPerl->Perl_gv_efullname #undef gv_efullname3 -#define gv_efullname3 pPerl->Perl_gv_efullname3 +#define gv_efullname3 pPerl->Perl_gv_efullname3 +#undef gv_ename +#define gv_ename pPerl->Perl_gv_ename #undef gv_fetchfile -#define gv_fetchfile pPerl->Perl_gv_fetchfile +#define gv_fetchfile pPerl->Perl_gv_fetchfile #undef gv_fetchmeth -#define gv_fetchmeth pPerl->Perl_gv_fetchmeth +#define gv_fetchmeth pPerl->Perl_gv_fetchmeth #undef gv_fetchmethod -#define gv_fetchmethod pPerl->Perl_gv_fetchmethod +#define gv_fetchmethod pPerl->Perl_gv_fetchmethod #undef gv_fetchmethod_autoload -#define gv_fetchmethod_autoload pPerl->Perl_gv_fetchmethod_autoload +#define gv_fetchmethod_autoload pPerl->Perl_gv_fetchmethod_autoload #undef gv_fetchpv -#define gv_fetchpv pPerl->Perl_gv_fetchpv +#define gv_fetchpv pPerl->Perl_gv_fetchpv #undef gv_fullname -#define gv_fullname pPerl->Perl_gv_fullname +#define gv_fullname pPerl->Perl_gv_fullname #undef gv_fullname3 -#define gv_fullname3 pPerl->Perl_gv_fullname3 +#define gv_fullname3 pPerl->Perl_gv_fullname3 #undef gv_init -#define gv_init pPerl->Perl_gv_init +#define gv_init pPerl->Perl_gv_init +#undef gv_init_sv +#define gv_init_sv pPerl->Perl_gv_init_sv #undef gv_stashpv -#define gv_stashpv pPerl->Perl_gv_stashpv +#define gv_stashpv pPerl->Perl_gv_stashpv #undef gv_stashpvn -#define gv_stashpvn pPerl->Perl_gv_stashpvn +#define gv_stashpvn pPerl->Perl_gv_stashpvn #undef gv_stashsv -#define gv_stashsv pPerl->Perl_gv_stashsv -#undef he_delayfree -#define he_delayfree pPerl->Perl_he_delayfree -#undef he_free -#define he_free pPerl->Perl_he_free -#undef hoistmust -#define hoistmust pPerl->Perl_hoistmust +#define gv_stashsv pPerl->Perl_gv_stashsv +#undef hfreeentries +#define hfreeentries pPerl->Perl_hfreeentries +#undef hsplit +#define hsplit pPerl->Perl_hsplit #undef hv_clear -#define hv_clear pPerl->Perl_hv_clear +#define hv_clear pPerl->Perl_hv_clear #undef hv_delayfree_ent -#define hv_delayfree_ent pPerl->Perl_hv_delayfree_ent +#define hv_delayfree_ent pPerl->Perl_hv_delayfree_ent #undef hv_delete -#define hv_delete pPerl->Perl_hv_delete +#define hv_delete pPerl->Perl_hv_delete #undef hv_delete_ent -#define hv_delete_ent pPerl->Perl_hv_delete_ent +#define hv_delete_ent pPerl->Perl_hv_delete_ent #undef hv_exists -#define hv_exists pPerl->Perl_hv_exists +#define hv_exists pPerl->Perl_hv_exists #undef hv_exists_ent -#define hv_exists_ent pPerl->Perl_hv_exists_ent +#define hv_exists_ent pPerl->Perl_hv_exists_ent #undef hv_fetch -#define hv_fetch pPerl->Perl_hv_fetch +#define hv_fetch pPerl->Perl_hv_fetch #undef hv_fetch_ent -#define hv_fetch_ent pPerl->Perl_hv_fetch_ent +#define hv_fetch_ent pPerl->Perl_hv_fetch_ent #undef hv_free_ent -#define hv_free_ent pPerl->Perl_hv_free_ent +#define hv_free_ent pPerl->Perl_hv_free_ent #undef hv_iterinit -#define hv_iterinit pPerl->Perl_hv_iterinit +#define hv_iterinit pPerl->Perl_hv_iterinit #undef hv_iterkey -#define hv_iterkey pPerl->Perl_hv_iterkey +#define hv_iterkey pPerl->Perl_hv_iterkey #undef hv_iterkeysv -#define hv_iterkeysv pPerl->Perl_hv_iterkeysv +#define hv_iterkeysv pPerl->Perl_hv_iterkeysv #undef hv_iternext -#define hv_iternext pPerl->Perl_hv_iternext +#define hv_iternext pPerl->Perl_hv_iternext #undef hv_iternextsv -#define hv_iternextsv pPerl->Perl_hv_iternextsv +#define hv_iternextsv pPerl->Perl_hv_iternextsv #undef hv_iterval -#define hv_iterval pPerl->Perl_hv_iterval +#define hv_iterval pPerl->Perl_hv_iterval #undef hv_ksplit -#define hv_ksplit pPerl->Perl_hv_ksplit +#define hv_ksplit pPerl->Perl_hv_ksplit #undef hv_magic -#define hv_magic pPerl->Perl_hv_magic +#define hv_magic pPerl->Perl_hv_magic +#undef hv_stashpv +#define hv_stashpv pPerl->Perl_hv_stashpv #undef hv_store -#define hv_store pPerl->Perl_hv_store +#define hv_store pPerl->Perl_hv_store #undef hv_store_ent -#define hv_store_ent pPerl->Perl_hv_store_ent +#define hv_store_ent pPerl->Perl_hv_store_ent #undef hv_undef -#define hv_undef pPerl->Perl_hv_undef +#define hv_undef pPerl->Perl_hv_undef #undef ibcmp -#define ibcmp pPerl->Perl_ibcmp +#define ibcmp pPerl->Perl_ibcmp #undef ibcmp_locale -#define ibcmp_locale pPerl->Perl_ibcmp_locale -#undef incpush -#define incpush pPerl->incpush -#undef incline -#define incline pPerl->incline +#define ibcmp_locale pPerl->Perl_ibcmp_locale #undef incl_perldb -#define incl_perldb pPerl->incl_perldb +#define incl_perldb pPerl->Perl_incl_perldb +#undef incline +#define incline pPerl->Perl_incline +#undef incpush +#define incpush pPerl->Perl_incpush #undef ingroup -#define ingroup pPerl->Perl_ingroup +#define ingroup pPerl->Perl_ingroup +#undef init_debugger +#define init_debugger pPerl->Perl_init_debugger +#undef init_ids +#define init_ids pPerl->Perl_init_ids +#undef init_interp +#define init_interp pPerl->Perl_init_interp +#undef init_lexer +#define init_lexer pPerl->Perl_init_lexer +#undef init_main_stash +#define init_main_stash pPerl->Perl_init_main_stash +#undef init_perllib +#define init_perllib pPerl->Perl_init_perllib +#undef init_postdump_symbols +#define init_postdump_symbols pPerl->Perl_init_postdump_symbols +#undef init_predump_symbols +#define init_predump_symbols pPerl->Perl_init_predump_symbols #undef init_stacks -#define init_stacks pPerl->Perl_init_stacks +#define init_stacks pPerl->Perl_init_stacks +#undef init_thread_intern +#define init_thread_intern pPerl->Perl_init_thread_intern #undef instr -#define instr pPerl->Perl_instr +#define instr pPerl->Perl_instr #undef intro_my -#define intro_my pPerl->Perl_intro_my +#define intro_my pPerl->Perl_intro_my #undef intuit_method -#define intuit_method pPerl->intuit_method +#define intuit_method pPerl->Perl_intuit_method +#undef intuit_more +#define intuit_more pPerl->Perl_intuit_more #undef intuit_more -#define intuit_more pPerl->Perl_intuit_more +#define intuit_more pPerl->Perl_intuit_more #undef invert -#define invert pPerl->Perl_invert - +#define invert pPerl->Perl_invert +#undef io_close +#define io_close pPerl->Perl_io_close +#undef is_an_int +#define is_an_int pPerl->Perl_is_an_int #undef is_uni_alnum -#define is_uni_alnum pPerl->Perl_is_uni_alnum +#define is_uni_alnum pPerl->Perl_is_uni_alnum #undef is_uni_alnum_lc -#define is_uni_alnum_lc pPerl->Perl_is_uni_alnum_lc +#define is_uni_alnum_lc pPerl->Perl_is_uni_alnum_lc #undef is_uni_alpha -#define is_uni_alpha pPerl->Perl_is_uni_alpha +#define is_uni_alpha pPerl->Perl_is_uni_alpha #undef is_uni_alpha_lc -#define is_uni_alpha_lc pPerl->Perl_is_uni_alpha_lc +#define is_uni_alpha_lc pPerl->Perl_is_uni_alpha_lc #undef is_uni_digit -#define is_uni_digit pPerl->Perl_is_uni_digit +#define is_uni_digit pPerl->Perl_is_uni_digit #undef is_uni_digit_lc -#define is_uni_digit_lc pPerl->Perl_is_uni_digit_lc +#define is_uni_digit_lc pPerl->Perl_is_uni_digit_lc #undef is_uni_idfirst -#define is_uni_idfirst pPerl->Perl_is_uni_idfirst +#define is_uni_idfirst pPerl->Perl_is_uni_idfirst #undef is_uni_idfirst_lc -#define is_uni_idfirst_lc pPerl->Perl_is_uni_idfirst_lc +#define is_uni_idfirst_lc pPerl->Perl_is_uni_idfirst_lc #undef is_uni_lower -#define is_uni_lower pPerl->Perl_is_uni_lower +#define is_uni_lower pPerl->Perl_is_uni_lower #undef is_uni_lower_lc -#define is_uni_lower_lc pPerl->Perl_is_uni_lower_lc +#define is_uni_lower_lc pPerl->Perl_is_uni_lower_lc #undef is_uni_print -#define is_uni_print pPerl->Perl_is_uni_print +#define is_uni_print pPerl->Perl_is_uni_print #undef is_uni_print_lc -#define is_uni_print_lc pPerl->Perl_is_uni_print_lc +#define is_uni_print_lc pPerl->Perl_is_uni_print_lc #undef is_uni_space -#define is_uni_space pPerl->Perl_is_uni_space +#define is_uni_space pPerl->Perl_is_uni_space #undef is_uni_space_lc -#define is_uni_space_lc pPerl->Perl_is_uni_space_lc +#define is_uni_space_lc pPerl->Perl_is_uni_space_lc #undef is_uni_upper -#define is_uni_upper pPerl->Perl_is_uni_upper +#define is_uni_upper pPerl->Perl_is_uni_upper #undef is_uni_upper_lc -#define is_uni_upper_lc pPerl->Perl_is_uni_upper_lc +#define is_uni_upper_lc pPerl->Perl_is_uni_upper_lc #undef is_utf8_alnum -#define is_utf8_alnum pPerl->Perl_is_utf8_alnum +#define is_utf8_alnum pPerl->Perl_is_utf8_alnum #undef is_utf8_alpha -#define is_utf8_alpha pPerl->Perl_is_utf8_alpha +#define is_utf8_alpha pPerl->Perl_is_utf8_alpha #undef is_utf8_digit -#define is_utf8_digit pPerl->Perl_is_utf8_digit +#define is_utf8_digit pPerl->Perl_is_utf8_digit #undef is_utf8_idfirst -#define is_utf8_idfirst pPerl->Perl_is_utf8_idfirst +#define is_utf8_idfirst pPerl->Perl_is_utf8_idfirst #undef is_utf8_lower -#define is_utf8_lower pPerl->Perl_is_utf8_lower +#define is_utf8_lower pPerl->Perl_is_utf8_lower #undef is_utf8_mark -#define is_utf8_mark pPerl->Perl_is_utf8_mark +#define is_utf8_mark pPerl->Perl_is_utf8_mark #undef is_utf8_print -#define is_utf8_print pPerl->Perl_is_utf8_print +#define is_utf8_print pPerl->Perl_is_utf8_print #undef is_utf8_space -#define is_utf8_space pPerl->Perl_is_utf8_space +#define is_utf8_space pPerl->Perl_is_utf8_space #undef is_utf8_upper -#define is_utf8_upper pPerl->Perl_is_utf8_upper - -#undef io_close -#define io_close pPerl->Perl_io_close -#undef ioctl -#define ioctl pPerl->ioctl +#define is_utf8_upper pPerl->Perl_is_utf8_upper +#undef isa_lookup +#define isa_lookup pPerl->Perl_isa_lookup #undef jmaybe -#define jmaybe pPerl->Perl_jmaybe +#define jmaybe pPerl->Perl_jmaybe #undef keyword -#define keyword pPerl->Perl_keyword +#define keyword pPerl->Perl_keyword #undef leave_scope -#define leave_scope pPerl->Perl_leave_scope +#define leave_scope pPerl->Perl_leave_scope #undef lex_end -#define lex_end pPerl->Perl_lex_end +#define lex_end pPerl->Perl_lex_end #undef lex_start -#define lex_start pPerl->Perl_lex_start +#define lex_start pPerl->Perl_lex_start #undef linklist -#define linklist pPerl->Perl_linklist +#define linklist pPerl->Perl_linklist #undef list -#define list pPerl->Perl_list +#define list pPerl->Perl_list +#undef list_assignment +#define list_assignment pPerl->Perl_list_assignment #undef listkids -#define listkids pPerl->Perl_listkids -#undef lop -#define lop pPerl->lop +#define listkids pPerl->Perl_listkids #undef localize -#define localize pPerl->Perl_localize +#define localize pPerl->Perl_localize #undef looks_like_number -#define looks_like_number pPerl->Perl_looks_like_number +#define looks_like_number pPerl->Perl_looks_like_number +#undef lop +#define lop pPerl->Perl_lop #undef magic_clear_all_env -#define magic_clear_all_env pPerl->Perl_magic_clear_all_env +#define magic_clear_all_env pPerl->Perl_magic_clear_all_env #undef magic_clearenv -#define magic_clearenv pPerl->Perl_magic_clearenv +#define magic_clearenv pPerl->Perl_magic_clearenv #undef magic_clearpack -#define magic_clearpack pPerl->Perl_magic_clearpack +#define magic_clearpack pPerl->Perl_magic_clearpack #undef magic_clearsig -#define magic_clearsig pPerl->Perl_magic_clearsig +#define magic_clearsig pPerl->Perl_magic_clearsig #undef magic_existspack -#define magic_existspack pPerl->Perl_magic_existspack +#define magic_existspack pPerl->Perl_magic_existspack #undef magic_freeregexp -#define magic_freeregexp pPerl->Perl_magic_freeregexp +#define magic_freeregexp pPerl->Perl_magic_freeregexp #undef magic_get -#define magic_get pPerl->Perl_magic_get +#define magic_get pPerl->Perl_magic_get #undef magic_getarylen -#define magic_getarylen pPerl->Perl_magic_getarylen +#define magic_getarylen pPerl->Perl_magic_getarylen #undef magic_getdefelem -#define magic_getdefelem pPerl->Perl_magic_getdefelem -#undef magic_getpack -#define magic_getpack pPerl->Perl_magic_getpack +#define magic_getdefelem pPerl->Perl_magic_getdefelem #undef magic_getglob -#define magic_getglob pPerl->Perl_magic_getglob +#define magic_getglob pPerl->Perl_magic_getglob #undef magic_getnkeys -#define magic_getnkeys pPerl->Perl_magic_getnkeys +#define magic_getnkeys pPerl->Perl_magic_getnkeys +#undef magic_getpack +#define magic_getpack pPerl->Perl_magic_getpack #undef magic_getpos -#define magic_getpos pPerl->Perl_magic_getpos +#define magic_getpos pPerl->Perl_magic_getpos #undef magic_getsig -#define magic_getsig pPerl->Perl_magic_getsig +#define magic_getsig pPerl->Perl_magic_getsig #undef magic_getsubstr -#define magic_getsubstr pPerl->Perl_magic_getsubstr +#define magic_getsubstr pPerl->Perl_magic_getsubstr #undef magic_gettaint -#define magic_gettaint pPerl->Perl_magic_gettaint +#define magic_gettaint pPerl->Perl_magic_gettaint #undef magic_getuvar -#define magic_getuvar pPerl->Perl_magic_getuvar +#define magic_getuvar pPerl->Perl_magic_getuvar #undef magic_getvec -#define magic_getvec pPerl->Perl_magic_getvec +#define magic_getvec pPerl->Perl_magic_getvec #undef magic_len -#define magic_len pPerl->Perl_magic_len +#define magic_len pPerl->Perl_magic_len +#undef magic_methcall +#define magic_methcall pPerl->Perl_magic_methcall +#undef magic_methcall +#define magic_methcall pPerl->Perl_magic_methcall #undef magic_methpack -#define magic_methpack pPerl->magic_methpack +#define magic_methpack pPerl->Perl_magic_methpack #undef magic_mutexfree -#define magic_mutexfree pPerl->Perl_magic_mutexfree +#define magic_mutexfree pPerl->Perl_magic_mutexfree #undef magic_nextpack -#define magic_nextpack pPerl->Perl_magic_nextpack +#define magic_nextpack pPerl->Perl_magic_nextpack #undef magic_regdata_cnt -#define magic_regdata_cnt pPerl->Perl_magic_regdata_cnt +#define magic_regdata_cnt pPerl->Perl_magic_regdata_cnt #undef magic_regdatum_get -#define magic_regdatum_get pPerl->Perl_magic_regdatum_get +#define magic_regdatum_get pPerl->Perl_magic_regdatum_get #undef magic_set -#define magic_set pPerl->Perl_magic_set +#define magic_set pPerl->Perl_magic_set #undef magic_set_all_env -#define magic_set_all_env pPerl->Perl_magic_set_all_env +#define magic_set_all_env pPerl->Perl_magic_set_all_env #undef magic_setamagic -#define magic_setamagic pPerl->Perl_magic_setamagic +#define magic_setamagic pPerl->Perl_magic_setamagic #undef magic_setarylen -#define magic_setarylen pPerl->Perl_magic_setarylen +#define magic_setarylen pPerl->Perl_magic_setarylen #undef magic_setbm -#define magic_setbm pPerl->Perl_magic_setbm +#define magic_setbm pPerl->Perl_magic_setbm #undef magic_setcollxfrm -#define magic_setcollxfrm pPerl->Perl_magic_setcollxfrm +#define magic_setcollxfrm pPerl->Perl_magic_setcollxfrm #undef magic_setdbline -#define magic_setdbline pPerl->Perl_magic_setdbline +#define magic_setdbline pPerl->Perl_magic_setdbline #undef magic_setdefelem -#define magic_setdefelem pPerl->Perl_magic_setdefelem +#define magic_setdefelem pPerl->Perl_magic_setdefelem #undef magic_setenv -#define magic_setenv pPerl->Perl_magic_setenv +#define magic_setenv pPerl->Perl_magic_setenv #undef magic_setfm -#define magic_setfm pPerl->Perl_magic_setfm -#undef magic_setisa -#define magic_setisa pPerl->Perl_magic_setisa +#define magic_setfm pPerl->Perl_magic_setfm #undef magic_setglob -#define magic_setglob pPerl->Perl_magic_setglob +#define magic_setglob pPerl->Perl_magic_setglob +#undef magic_setisa +#define magic_setisa pPerl->Perl_magic_setisa #undef magic_setmglob -#define magic_setmglob pPerl->Perl_magic_setmglob +#define magic_setmglob pPerl->Perl_magic_setmglob #undef magic_setnkeys -#define magic_setnkeys pPerl->Perl_magic_setnkeys +#define magic_setnkeys pPerl->Perl_magic_setnkeys #undef magic_setpack -#define magic_setpack pPerl->Perl_magic_setpack +#define magic_setpack pPerl->Perl_magic_setpack #undef magic_setpos -#define magic_setpos pPerl->Perl_magic_setpos +#define magic_setpos pPerl->Perl_magic_setpos #undef magic_setsig -#define magic_setsig pPerl->Perl_magic_setsig +#define magic_setsig pPerl->Perl_magic_setsig #undef magic_setsubstr -#define magic_setsubstr pPerl->Perl_magic_setsubstr +#define magic_setsubstr pPerl->Perl_magic_setsubstr #undef magic_settaint -#define magic_settaint pPerl->Perl_magic_settaint +#define magic_settaint pPerl->Perl_magic_settaint #undef magic_setuvar -#define magic_setuvar pPerl->Perl_magic_setuvar +#define magic_setuvar pPerl->Perl_magic_setuvar #undef magic_setvec -#define magic_setvec pPerl->Perl_magic_setvec +#define magic_setvec pPerl->Perl_magic_setvec #undef magic_sizepack -#define magic_sizepack pPerl->Perl_magic_sizepack -#undef magic_unchain -#define magic_unchain pPerl->Perl_magic_unchain +#define magic_sizepack pPerl->Perl_magic_sizepack #undef magic_wipepack -#define magic_wipepack pPerl->Perl_magic_wipepack +#define magic_wipepack pPerl->Perl_magic_wipepack #undef magicname -#define magicname pPerl->Perl_magicname +#define magicname pPerl->Perl_magicname #undef malloced_size -#define malloced_size pPerl->Perl_malloced_size +#define malloced_size pPerl->Perl_malloced_size #undef markstack_grow -#define markstack_grow pPerl->Perl_markstack_grow +#define markstack_grow pPerl->Perl_markstack_grow #undef mem_collxfrm -#define mem_collxfrm pPerl->Perl_mem_collxfrm +#define mem_collxfrm pPerl->Perl_mem_collxfrm #undef mess -#define mess pPerl->Perl_mess +#define mess pPerl->Perl_mess +#undef mess_alloc +#define mess_alloc pPerl->Perl_mess_alloc #undef mg_clear -#define mg_clear pPerl->Perl_mg_clear +#define mg_clear pPerl->Perl_mg_clear #undef mg_copy -#define mg_copy pPerl->Perl_mg_copy +#define mg_copy pPerl->Perl_mg_copy #undef mg_find -#define mg_find pPerl->Perl_mg_find +#define mg_find pPerl->Perl_mg_find #undef mg_free -#define mg_free pPerl->Perl_mg_free +#define mg_free pPerl->Perl_mg_free #undef mg_get -#define mg_get pPerl->Perl_mg_get -#undef mg_magical -#define mg_magical pPerl->Perl_mg_magical +#define mg_get pPerl->Perl_mg_get #undef mg_length -#define mg_length pPerl->Perl_mg_length +#define mg_length pPerl->Perl_mg_length +#undef mg_magical +#define mg_magical pPerl->Perl_mg_magical #undef mg_set -#define mg_set pPerl->Perl_mg_set +#define mg_set pPerl->Perl_mg_set #undef mg_size -#define mg_size pPerl->Perl_mg_size +#define mg_size pPerl->Perl_mg_size #undef missingterm -#define missingterm pPerl->missingterm +#define missingterm pPerl->Perl_missingterm #undef mod -#define mod pPerl->Perl_mod +#define mod pPerl->Perl_mod #undef modkids -#define modkids pPerl->Perl_modkids -#undef moreswitches -#define moreswitches pPerl->Perl_moreswitches +#define modkids pPerl->Perl_modkids +#undef modkids +#define modkids pPerl->Perl_modkids +#undef more_he +#define more_he pPerl->Perl_more_he #undef more_sv -#define more_sv pPerl->more_sv +#define more_sv pPerl->Perl_more_sv #undef more_xiv -#define more_xiv pPerl->more_xiv +#define more_xiv pPerl->Perl_more_xiv #undef more_xnv -#define more_xnv pPerl->more_xnv +#define more_xnv pPerl->Perl_more_xnv #undef more_xpv -#define more_xpv pPerl->more_xpv +#define more_xpv pPerl->Perl_more_xpv #undef more_xrv -#define more_xrv pPerl->more_xrv +#define more_xrv pPerl->Perl_more_xrv +#undef moreswitches +#define moreswitches pPerl->Perl_moreswitches +#undef mstats +#define mstats pPerl->Perl_mstats +#undef mul128 +#define mul128 pPerl->Perl_mul128 #undef my -#define my pPerl->Perl_my +#define my pPerl->Perl_my #undef my_bcopy -#define my_bcopy pPerl->Perl_my_bcopy +#define my_bcopy pPerl->Perl_my_bcopy #undef my_bzero -#define my_bzero pPerl->Perl_my_bzero +#define my_bzero pPerl->Perl_my_bzero #undef my_chsize -#define my_chsize pPerl->Perl_my_chsize +#define my_chsize pPerl->Perl_my_chsize #undef my_exit -#define my_exit pPerl->Perl_my_exit +#define my_exit pPerl->Perl_my_exit +#undef my_exit_jump +#define my_exit_jump pPerl->Perl_my_exit_jump #undef my_failure_exit -#define my_failure_exit pPerl->Perl_my_failure_exit +#define my_failure_exit pPerl->Perl_my_failure_exit #undef my_htonl -#define my_htonl pPerl->Perl_my_htonl +#define my_htonl pPerl->Perl_my_htonl #undef my_lstat -#define my_lstat pPerl->Perl_my_lstat +#define my_lstat pPerl->Perl_my_lstat #undef my_memcmp -#define my_memcmp pPerl->my_memcmp +#define my_memcmp pPerl->Perl_my_memcmp +#undef my_memset +#define my_memset pPerl->Perl_my_memset #undef my_ntohl -#define my_ntohl pPerl->Perl_my_ntohl +#define my_ntohl pPerl->Perl_my_ntohl #undef my_pclose -#define my_pclose pPerl->Perl_my_pclose +#define my_pclose pPerl->Perl_my_pclose #undef my_popen -#define my_popen pPerl->Perl_my_popen +#define my_popen pPerl->Perl_my_popen +#undef my_safemalloc +#define my_safemalloc pPerl->Perl_my_safemalloc #undef my_setenv -#define my_setenv pPerl->Perl_my_setenv +#define my_setenv pPerl->Perl_my_setenv #undef my_stat -#define my_stat pPerl->Perl_my_stat +#define my_stat pPerl->Perl_my_stat #undef my_swap -#define my_swap pPerl->Perl_my_swap +#define my_swap pPerl->Perl_my_swap #undef my_unexec -#define my_unexec pPerl->Perl_my_unexec -#undef newANONLIST -#define newANONLIST pPerl->Perl_newANONLIST +#define my_unexec pPerl->Perl_my_unexec #undef newANONHASH -#define newANONHASH pPerl->Perl_newANONHASH +#define newANONHASH pPerl->Perl_newANONHASH +#undef newANONLIST +#define newANONLIST pPerl->Perl_newANONLIST #undef newANONSUB -#define newANONSUB pPerl->Perl_newANONSUB +#define newANONSUB pPerl->Perl_newANONSUB #undef newASSIGNOP -#define newASSIGNOP pPerl->Perl_newASSIGNOP -#undef newCONDOP -#define newCONDOP pPerl->Perl_newCONDOP -#undef newCONSTSUB -#define newCONSTSUB pPerl->Perl_newCONSTSUB -#undef newFORM -#define newFORM pPerl->Perl_newFORM -#undef newFOROP -#define newFOROP pPerl->Perl_newFOROP -#undef newLOGOP -#define newLOGOP pPerl->Perl_newLOGOP -#undef newLOOPEX -#define newLOOPEX pPerl->Perl_newLOOPEX -#undef newLOOPOP -#define newLOOPOP pPerl->Perl_newLOOPOP -#undef newMETHOD -#define newMETHOD pPerl->Perl_newMETHOD -#undef newNULLLIST -#define newNULLLIST pPerl->Perl_newNULLLIST -#undef newOP -#define newOP pPerl->Perl_newOP -#undef newPROG -#define newPROG pPerl->Perl_newPROG -#undef newRANGE -#define newRANGE pPerl->Perl_newRANGE -#undef newSLICEOP -#define newSLICEOP pPerl->Perl_newSLICEOP -#undef newSTATEOP -#define newSTATEOP pPerl->Perl_newSTATEOP -#undef newSUB -#define newSUB pPerl->Perl_newSUB -#undef newXS -#define newXS pPerl->Perl_newXS +#define newASSIGNOP pPerl->Perl_newASSIGNOP #undef newAV -#define newAV pPerl->Perl_newAV +#define newAV pPerl->Perl_newAV #undef newAVREF -#define newAVREF pPerl->Perl_newAVREF +#define newAVREF pPerl->Perl_newAVREF #undef newBINOP -#define newBINOP pPerl->Perl_newBINOP +#define newBINOP pPerl->Perl_newBINOP +#undef newCONDOP +#define newCONDOP pPerl->Perl_newCONDOP +#undef newCONSTSUB +#define newCONSTSUB pPerl->Perl_newCONSTSUB #undef newCVREF -#define newCVREF pPerl->Perl_newCVREF -#undef newCVOP -#define newCVOP pPerl->Perl_newCVOP +#define newCVREF pPerl->Perl_newCVREF +#undef newDEFSVOP +#define newDEFSVOP pPerl->Perl_newDEFSVOP +#undef newFORM +#define newFORM pPerl->Perl_newFORM +#undef newFOROP +#define newFOROP pPerl->Perl_newFOROP #undef newGVOP -#define newGVOP pPerl->Perl_newGVOP -#undef newGVgen -#define newGVgen pPerl->Perl_newGVgen +#define newGVOP pPerl->Perl_newGVOP #undef newGVREF -#define newGVREF pPerl->Perl_newGVREF -#undef newHVREF -#define newHVREF pPerl->Perl_newHVREF +#define newGVREF pPerl->Perl_newGVREF +#undef newGVgen +#define newGVgen pPerl->Perl_newGVgen #undef newHV -#define newHV pPerl->Perl_newHV +#define newHV pPerl->Perl_newHV +#undef newHVREF +#define newHVREF pPerl->Perl_newHVREF #undef newHVhv -#define newHVhv pPerl->Perl_newHVhv +#define newHVhv pPerl->Perl_newHVhv #undef newIO -#define newIO pPerl->Perl_newIO +#define newIO pPerl->Perl_newIO #undef newLISTOP -#define newLISTOP pPerl->Perl_newLISTOP +#define newLISTOP pPerl->Perl_newLISTOP +#undef newLOGOP +#define newLOGOP pPerl->Perl_newLOGOP +#undef newLOOPEX +#define newLOOPEX pPerl->Perl_newLOOPEX +#undef newLOOPOP +#define newLOOPOP pPerl->Perl_newLOOPOP +#undef newNULLLIST +#define newNULLLIST pPerl->Perl_newNULLLIST +#undef newOP +#define newOP pPerl->Perl_newOP #undef newPMOP -#define newPMOP pPerl->Perl_newPMOP +#define newPMOP pPerl->Perl_newPMOP +#undef newPROG +#define newPROG pPerl->Perl_newPROG #undef newPVOP -#define newPVOP pPerl->Perl_newPVOP +#define newPVOP pPerl->Perl_newPVOP +#undef newRANGE +#define newRANGE pPerl->Perl_newRANGE #undef newRV -#define newRV pPerl->Perl_newRV +#define newRV pPerl->Perl_newRV #undef newRV_noinc -#undef Perl_newRV_noinc -#define newRV_noinc pPerl->Perl_newRV_noinc +#define newRV_noinc pPerl->Perl_newRV_noinc +#undef newSLICEOP +#define newSLICEOP pPerl->Perl_newSLICEOP +#undef newSTATEOP +#define newSTATEOP pPerl->Perl_newSTATEOP +#undef newSUB +#define newSUB pPerl->Perl_newSUB #undef newSV -#define newSV pPerl->Perl_newSV -#undef newSVREF -#define newSVREF pPerl->Perl_newSVREF +#define newSV pPerl->Perl_newSV #undef newSVOP -#define newSVOP pPerl->Perl_newSVOP +#define newSVOP pPerl->Perl_newSVOP +#undef newSVREF +#define newSVREF pPerl->Perl_newSVREF #undef newSViv -#define newSViv pPerl->Perl_newSViv +#define newSViv pPerl->Perl_newSViv #undef newSVnv -#define newSVnv pPerl->Perl_newSVnv +#define newSVnv pPerl->Perl_newSVnv #undef newSVpv -#define newSVpv pPerl->Perl_newSVpv +#define newSVpv pPerl->Perl_newSVpv #undef newSVpvf -#define newSVpvf pPerl->Perl_newSVpvf +#define newSVpvf pPerl->Perl_newSVpvf #undef newSVpvn -#define newSVpvn pPerl->Perl_newSVpvn +#define newSVpvn pPerl->Perl_newSVpvn #undef newSVrv -#define newSVrv pPerl->Perl_newSVrv +#define newSVrv pPerl->Perl_newSVrv #undef newSVsv -#define newSVsv pPerl->Perl_newSVsv +#define newSVsv pPerl->Perl_newSVsv #undef newUNOP -#define newUNOP pPerl->Perl_newUNOP +#define newUNOP pPerl->Perl_newUNOP #undef newWHILEOP -#define newWHILEOP pPerl->Perl_newWHILEOP -#undef new_struct_thread -#define new_struct_thread pPerl->Perl_new_struct_thread +#define newWHILEOP pPerl->Perl_newWHILEOP +#undef newXS +#define newXS pPerl->Perl_newXS +#undef newXSUB +#define newXSUB pPerl->Perl_newXSUB +#undef new_constant +#define new_constant pPerl->Perl_new_constant +#undef new_he +#define new_he pPerl->Perl_new_he +#undef new_logop +#define new_logop pPerl->Perl_new_logop #undef new_stackinfo -#define new_stackinfo pPerl->Perl_new_stackinfo -#undef new_sv -#define new_sv pPerl->new_sv +#define new_stackinfo pPerl->Perl_new_stackinfo +#undef new_struct_thread +#define new_struct_thread pPerl->Perl_new_struct_thread +#undef new_xiv +#define new_xiv pPerl->Perl_new_xiv #undef new_xnv -#define new_xnv pPerl->new_xnv +#define new_xnv pPerl->Perl_new_xnv #undef new_xpv -#define new_xpv pPerl->new_xpv +#define new_xpv pPerl->Perl_new_xpv +#undef new_xrv +#define new_xrv pPerl->Perl_new_xrv #undef nextargv -#define nextargv pPerl->Perl_nextargv +#define nextargv pPerl->Perl_nextargv #undef nextchar -#define nextchar pPerl->nextchar +#define nextchar pPerl->Perl_nextchar #undef ninstr -#define ninstr pPerl->Perl_ninstr +#define ninstr pPerl->Perl_ninstr #undef no_fh_allowed -#define no_fh_allowed pPerl->Perl_no_fh_allowed +#define no_fh_allowed pPerl->Perl_no_fh_allowed +#undef no_fh_allowed +#define no_fh_allowed pPerl->Perl_no_fh_allowed +#undef no_op +#define no_op pPerl->Perl_no_op #undef no_op -#define no_op pPerl->Perl_no_op +#define no_op pPerl->Perl_no_op +#undef not_a_number +#define not_a_number pPerl->Perl_not_a_number +#undef nuke_stacks +#define nuke_stacks pPerl->Perl_nuke_stacks +#undef null +#define null pPerl->Perl_null +#undef oopsAV +#define oopsAV pPerl->Perl_oopsAV +#undef oopsCV +#define oopsCV pPerl->Perl_oopsCV +#undef oopsHV +#define oopsHV pPerl->Perl_oopsHV +#undef op_const_sv +#define op_const_sv pPerl->Perl_op_const_sv +#undef op_free +#define op_free pPerl->Perl_op_free +#undef open_script +#define open_script pPerl->Perl_open_script #undef package -#define package pPerl->Perl_package +#define package pPerl->Perl_package #undef pad_alloc -#define pad_alloc pPerl->Perl_pad_alloc +#define pad_alloc pPerl->Perl_pad_alloc #undef pad_allocmy -#define pad_allocmy pPerl->Perl_pad_allocmy -#undef pad_findmy -#define pad_findmy pPerl->Perl_pad_findmy -#undef op_const_sv -#define op_const_sv pPerl->Perl_op_const_sv -#undef op_free -#define op_free pPerl->Perl_op_free -#undef oopsCV -#define oopsCV pPerl->Perl_oopsCV -#undef oopsAV -#define oopsAV pPerl->Perl_oopsAV -#undef oopsHV -#define oopsHV pPerl->Perl_oopsHV -#undef opendir -#define opendir pPerl->opendir -#undef pad_leavemy -#define pad_leavemy pPerl->Perl_pad_leavemy -#undef pad_sv -#define pad_sv pPerl->Perl_pad_sv +#define pad_allocmy pPerl->Perl_pad_allocmy #undef pad_findlex -#define pad_findlex pPerl->pad_findlex +#define pad_findlex pPerl->Perl_pad_findlex +#undef pad_findmy +#define pad_findmy pPerl->Perl_pad_findmy #undef pad_free -#define pad_free pPerl->Perl_pad_free +#define pad_free pPerl->Perl_pad_free +#undef pad_leavemy +#define pad_leavemy pPerl->Perl_pad_leavemy #undef pad_reset -#define pad_reset pPerl->Perl_pad_reset +#define pad_reset pPerl->Perl_pad_reset +#undef pad_sv +#define pad_sv pPerl->Perl_pad_sv #undef pad_swipe -#define pad_swipe pPerl->Perl_pad_swipe +#define pad_swipe pPerl->Perl_pad_swipe #undef peep -#define peep pPerl->Perl_peep +#define peep pPerl->Perl_peep #undef perl_atexit -#define perl_atexit pPerl->perl_atexit -#undef perl_free -#define perl_free pPerl->perl_free -#undef perl_construct -#define perl_construct pPerl->perl_construct -#undef perl_destruct -#define perl_destruct pPerl->perl_destruct -#undef perl_parse -#define perl_parse pPerl->perl_parse -#undef perl_run -#define perl_run pPerl->perl_run +#define perl_atexit pPerl->perl_atexit #undef perl_call_argv -#define perl_call_argv pPerl->perl_call_argv +#define perl_call_argv pPerl->perl_call_argv #undef perl_call_method -#define perl_call_method pPerl->perl_call_method +#define perl_call_method pPerl->perl_call_method #undef perl_call_pv -#define perl_call_pv pPerl->perl_call_pv +#define perl_call_pv pPerl->perl_call_pv #undef perl_call_sv -#define perl_call_sv pPerl->perl_call_sv -#undef perl_callargv -#define perl_callargv pPerl->perl_callargv -#undef perl_callpv -#define perl_callpv pPerl->perl_callpv -#undef perl_callsv -#define perl_callsv pPerl->perl_callsv +#define perl_call_sv pPerl->perl_call_sv +#undef perl_construct +#define perl_construct pPerl->perl_construct +#undef perl_destruct +#define perl_destruct pPerl->perl_destruct #undef perl_eval_pv -#define perl_eval_pv pPerl->perl_eval_pv +#define perl_eval_pv pPerl->perl_eval_pv #undef perl_eval_sv -#define perl_eval_sv pPerl->perl_eval_sv -#undef perl_get_sv -#define perl_get_sv pPerl->perl_get_sv +#define perl_eval_sv pPerl->perl_eval_sv +#undef perl_free +#define perl_free pPerl->perl_free #undef perl_get_av -#define perl_get_av pPerl->perl_get_av -#undef perl_get_hv -#define perl_get_hv pPerl->perl_get_hv +#define perl_get_av pPerl->perl_get_av #undef perl_get_cv -#define perl_get_cv pPerl->perl_get_cv +#define perl_get_cv pPerl->perl_get_cv +#undef perl_get_hv +#define perl_get_hv pPerl->perl_get_hv +#undef perl_get_sv +#define perl_get_sv pPerl->perl_get_sv #undef perl_init_i18nl10n -#define perl_init_i18nl10n pPerl->perl_init_i18nl10n +#define perl_init_i18nl10n pPerl->perl_init_i18nl10n #undef perl_init_i18nl14n -#define perl_init_i18nl14n pPerl->perl_init_i18nl14n +#define perl_init_i18nl14n pPerl->perl_init_i18nl14n #undef perl_new_collate -#define perl_new_collate pPerl->perl_new_collate +#define perl_new_collate pPerl->perl_new_collate #undef perl_new_ctype -#define perl_new_ctype pPerl->perl_new_ctype +#define perl_new_ctype pPerl->perl_new_ctype #undef perl_new_numeric -#define perl_new_numeric pPerl->perl_new_numeric +#define perl_new_numeric pPerl->perl_new_numeric +#undef perl_parse +#define perl_parse pPerl->perl_parse +#undef perl_require_pv +#define perl_require_pv pPerl->perl_require_pv +#undef perl_run +#define perl_run pPerl->perl_run #undef perl_set_numeric_local -#define perl_set_numeric_local pPerl->perl_set_numeric_local +#define perl_set_numeric_local pPerl->perl_set_numeric_local #undef perl_set_numeric_standard -#define perl_set_numeric_standard pPerl->perl_set_numeric_standard -#undef perl_require_pv -#define perl_require_pv pPerl->perl_require_pv +#define perl_set_numeric_standard pPerl->perl_set_numeric_standard #undef pidgone -#define pidgone pPerl->Perl_pidgone +#define pidgone pPerl->Perl_pidgone #undef pmflag -#define pmflag pPerl->Perl_pmflag +#define pmflag pPerl->Perl_pmflag #undef pmruntime -#define pmruntime pPerl->Perl_pmruntime +#define pmruntime pPerl->Perl_pmruntime #undef pmtrans -#define pmtrans pPerl->Perl_pmtrans +#define pmtrans pPerl->Perl_pmtrans #undef pop_return -#define pop_return pPerl->Perl_pop_return +#define pop_return pPerl->Perl_pop_return #undef pop_scope -#define pop_scope pPerl->Perl_pop_scope +#define pop_scope pPerl->Perl_pop_scope +#undef pp_aassign +#define pp_aassign pPerl->Perl_pp_aassign +#undef pp_abs +#define pp_abs pPerl->Perl_pp_abs +#undef pp_accept +#define pp_accept pPerl->Perl_pp_accept +#undef pp_add +#define pp_add pPerl->Perl_pp_add +#undef pp_aelem +#define pp_aelem pPerl->Perl_pp_aelem +#undef pp_aelemfast +#define pp_aelemfast pPerl->Perl_pp_aelemfast +#undef pp_alarm +#define pp_alarm pPerl->Perl_pp_alarm +#undef pp_and +#define pp_and pPerl->Perl_pp_and +#undef pp_andassign +#define pp_andassign pPerl->Perl_pp_andassign +#undef pp_anoncode +#define pp_anoncode pPerl->Perl_pp_anoncode +#undef pp_anonhash +#define pp_anonhash pPerl->Perl_pp_anonhash +#undef pp_anonlist +#define pp_anonlist pPerl->Perl_pp_anonlist +#undef pp_aslice +#define pp_aslice pPerl->Perl_pp_aslice +#undef pp_atan2 +#define pp_atan2 pPerl->Perl_pp_atan2 +#undef pp_av2arylen +#define pp_av2arylen pPerl->Perl_pp_av2arylen +#undef pp_backtick +#define pp_backtick pPerl->Perl_pp_backtick +#undef pp_bind +#define pp_bind pPerl->Perl_pp_bind +#undef pp_binmode +#define pp_binmode pPerl->Perl_pp_binmode +#undef pp_bit_and +#define pp_bit_and pPerl->Perl_pp_bit_and +#undef pp_bit_or +#define pp_bit_or pPerl->Perl_pp_bit_or +#undef pp_bit_xor +#define pp_bit_xor pPerl->Perl_pp_bit_xor +#undef pp_bless +#define pp_bless pPerl->Perl_pp_bless +#undef pp_caller +#define pp_caller pPerl->Perl_pp_caller +#undef pp_chdir +#define pp_chdir pPerl->Perl_pp_chdir +#undef pp_chmod +#define pp_chmod pPerl->Perl_pp_chmod +#undef pp_chomp +#define pp_chomp pPerl->Perl_pp_chomp +#undef pp_chop +#define pp_chop pPerl->Perl_pp_chop +#undef pp_chown +#define pp_chown pPerl->Perl_pp_chown +#undef pp_chr +#define pp_chr pPerl->Perl_pp_chr +#undef pp_chroot +#define pp_chroot pPerl->Perl_pp_chroot +#undef pp_close +#define pp_close pPerl->Perl_pp_close +#undef pp_closedir +#define pp_closedir pPerl->Perl_pp_closedir +#undef pp_complement +#define pp_complement pPerl->Perl_pp_complement +#undef pp_concat +#define pp_concat pPerl->Perl_pp_concat +#undef pp_cond_expr +#define pp_cond_expr pPerl->Perl_pp_cond_expr +#undef pp_connect +#define pp_connect pPerl->Perl_pp_connect +#undef pp_const +#define pp_const pPerl->Perl_pp_const +#undef pp_cos +#define pp_cos pPerl->Perl_pp_cos +#undef pp_crypt +#define pp_crypt pPerl->Perl_pp_crypt +#undef pp_dbmclose +#define pp_dbmclose pPerl->Perl_pp_dbmclose +#undef pp_dbmopen +#define pp_dbmopen pPerl->Perl_pp_dbmopen +#undef pp_dbstate +#define pp_dbstate pPerl->Perl_pp_dbstate +#undef pp_defined +#define pp_defined pPerl->Perl_pp_defined +#undef pp_delete +#define pp_delete pPerl->Perl_pp_delete +#undef pp_die +#define pp_die pPerl->Perl_pp_die +#undef pp_divide +#define pp_divide pPerl->Perl_pp_divide +#undef pp_dofile +#define pp_dofile pPerl->Perl_pp_dofile +#undef pp_dump +#define pp_dump pPerl->Perl_pp_dump +#undef pp_each +#define pp_each pPerl->Perl_pp_each +#undef pp_egrent +#define pp_egrent pPerl->Perl_pp_egrent +#undef pp_ehostent +#define pp_ehostent pPerl->Perl_pp_ehostent +#undef pp_enetent +#define pp_enetent pPerl->Perl_pp_enetent +#undef pp_enter +#define pp_enter pPerl->Perl_pp_enter +#undef pp_entereval +#define pp_entereval pPerl->Perl_pp_entereval +#undef pp_enteriter +#define pp_enteriter pPerl->Perl_pp_enteriter +#undef pp_enterloop +#define pp_enterloop pPerl->Perl_pp_enterloop +#undef pp_entersub +#define pp_entersub pPerl->Perl_pp_entersub +#undef pp_entertry +#define pp_entertry pPerl->Perl_pp_entertry +#undef pp_enterwrite +#define pp_enterwrite pPerl->Perl_pp_enterwrite +#undef pp_eof +#define pp_eof pPerl->Perl_pp_eof +#undef pp_eprotoent +#define pp_eprotoent pPerl->Perl_pp_eprotoent +#undef pp_epwent +#define pp_epwent pPerl->Perl_pp_epwent +#undef pp_eq +#define pp_eq pPerl->Perl_pp_eq +#undef pp_eservent +#define pp_eservent pPerl->Perl_pp_eservent +#undef pp_exec +#define pp_exec pPerl->Perl_pp_exec +#undef pp_exists +#define pp_exists pPerl->Perl_pp_exists +#undef pp_exit +#define pp_exit pPerl->Perl_pp_exit +#undef pp_exp +#define pp_exp pPerl->Perl_pp_exp +#undef pp_fcntl +#define pp_fcntl pPerl->Perl_pp_fcntl +#undef pp_fileno +#define pp_fileno pPerl->Perl_pp_fileno +#undef pp_flip +#define pp_flip pPerl->Perl_pp_flip +#undef pp_flock +#define pp_flock pPerl->Perl_pp_flock +#undef pp_flop +#define pp_flop pPerl->Perl_pp_flop +#undef pp_fork +#define pp_fork pPerl->Perl_pp_fork +#undef pp_formline +#define pp_formline pPerl->Perl_pp_formline +#undef pp_ftatime +#define pp_ftatime pPerl->Perl_pp_ftatime +#undef pp_ftbinary +#define pp_ftbinary pPerl->Perl_pp_ftbinary +#undef pp_ftblk +#define pp_ftblk pPerl->Perl_pp_ftblk +#undef pp_ftchr +#define pp_ftchr pPerl->Perl_pp_ftchr +#undef pp_ftctime +#define pp_ftctime pPerl->Perl_pp_ftctime +#undef pp_ftdir +#define pp_ftdir pPerl->Perl_pp_ftdir +#undef pp_fteexec +#define pp_fteexec pPerl->Perl_pp_fteexec +#undef pp_fteowned +#define pp_fteowned pPerl->Perl_pp_fteowned +#undef pp_fteread +#define pp_fteread pPerl->Perl_pp_fteread +#undef pp_ftewrite +#define pp_ftewrite pPerl->Perl_pp_ftewrite +#undef pp_ftfile +#define pp_ftfile pPerl->Perl_pp_ftfile +#undef pp_ftis +#define pp_ftis pPerl->Perl_pp_ftis +#undef pp_ftlink +#define pp_ftlink pPerl->Perl_pp_ftlink +#undef pp_ftmtime +#define pp_ftmtime pPerl->Perl_pp_ftmtime +#undef pp_ftpipe +#define pp_ftpipe pPerl->Perl_pp_ftpipe +#undef pp_ftrexec +#define pp_ftrexec pPerl->Perl_pp_ftrexec +#undef pp_ftrowned +#define pp_ftrowned pPerl->Perl_pp_ftrowned +#undef pp_ftrread +#define pp_ftrread pPerl->Perl_pp_ftrread +#undef pp_ftrwrite +#define pp_ftrwrite pPerl->Perl_pp_ftrwrite +#undef pp_ftsgid +#define pp_ftsgid pPerl->Perl_pp_ftsgid +#undef pp_ftsize +#define pp_ftsize pPerl->Perl_pp_ftsize +#undef pp_ftsock +#define pp_ftsock pPerl->Perl_pp_ftsock +#undef pp_ftsuid +#define pp_ftsuid pPerl->Perl_pp_ftsuid +#undef pp_ftsvtx +#define pp_ftsvtx pPerl->Perl_pp_ftsvtx +#undef pp_fttext +#define pp_fttext pPerl->Perl_pp_fttext +#undef pp_fttty +#define pp_fttty pPerl->Perl_pp_fttty +#undef pp_ftzero +#define pp_ftzero pPerl->Perl_pp_ftzero +#undef pp_ge +#define pp_ge pPerl->Perl_pp_ge +#undef pp_gelem +#define pp_gelem pPerl->Perl_pp_gelem +#undef pp_getc +#define pp_getc pPerl->Perl_pp_getc +#undef pp_getlogin +#define pp_getlogin pPerl->Perl_pp_getlogin +#undef pp_getpeername +#define pp_getpeername pPerl->Perl_pp_getpeername +#undef pp_getpgrp +#define pp_getpgrp pPerl->Perl_pp_getpgrp +#undef pp_getppid +#define pp_getppid pPerl->Perl_pp_getppid +#undef pp_getpriority +#define pp_getpriority pPerl->Perl_pp_getpriority +#undef pp_getsockname +#define pp_getsockname pPerl->Perl_pp_getsockname +#undef pp_ggrent +#define pp_ggrent pPerl->Perl_pp_ggrent +#undef pp_ggrgid +#define pp_ggrgid pPerl->Perl_pp_ggrgid +#undef pp_ggrnam +#define pp_ggrnam pPerl->Perl_pp_ggrnam +#undef pp_ghbyaddr +#define pp_ghbyaddr pPerl->Perl_pp_ghbyaddr +#undef pp_ghbyname +#define pp_ghbyname pPerl->Perl_pp_ghbyname +#undef pp_ghostent +#define pp_ghostent pPerl->Perl_pp_ghostent +#undef pp_glob +#define pp_glob pPerl->Perl_pp_glob +#undef pp_gmtime +#define pp_gmtime pPerl->Perl_pp_gmtime +#undef pp_gnbyaddr +#define pp_gnbyaddr pPerl->Perl_pp_gnbyaddr +#undef pp_gnbyname +#define pp_gnbyname pPerl->Perl_pp_gnbyname +#undef pp_gnetent +#define pp_gnetent pPerl->Perl_pp_gnetent +#undef pp_goto +#define pp_goto pPerl->Perl_pp_goto +#undef pp_gpbyname +#define pp_gpbyname pPerl->Perl_pp_gpbyname +#undef pp_gpbynumber +#define pp_gpbynumber pPerl->Perl_pp_gpbynumber +#undef pp_gprotoent +#define pp_gprotoent pPerl->Perl_pp_gprotoent +#undef pp_gpwent +#define pp_gpwent pPerl->Perl_pp_gpwent +#undef pp_gpwnam +#define pp_gpwnam pPerl->Perl_pp_gpwnam +#undef pp_gpwuid +#define pp_gpwuid pPerl->Perl_pp_gpwuid +#undef pp_grepstart +#define pp_grepstart pPerl->Perl_pp_grepstart +#undef pp_grepwhile +#define pp_grepwhile pPerl->Perl_pp_grepwhile +#undef pp_gsbyname +#define pp_gsbyname pPerl->Perl_pp_gsbyname +#undef pp_gsbyport +#define pp_gsbyport pPerl->Perl_pp_gsbyport +#undef pp_gservent +#define pp_gservent pPerl->Perl_pp_gservent +#undef pp_gsockopt +#define pp_gsockopt pPerl->Perl_pp_gsockopt +#undef pp_gt +#define pp_gt pPerl->Perl_pp_gt +#undef pp_gv +#define pp_gv pPerl->Perl_pp_gv +#undef pp_gvsv +#define pp_gvsv pPerl->Perl_pp_gvsv +#undef pp_helem +#define pp_helem pPerl->Perl_pp_helem +#undef pp_hex +#define pp_hex pPerl->Perl_pp_hex +#undef pp_hslice +#define pp_hslice pPerl->Perl_pp_hslice +#undef pp_i_add +#define pp_i_add pPerl->Perl_pp_i_add +#undef pp_i_divide +#define pp_i_divide pPerl->Perl_pp_i_divide +#undef pp_i_eq +#define pp_i_eq pPerl->Perl_pp_i_eq +#undef pp_i_ge +#define pp_i_ge pPerl->Perl_pp_i_ge +#undef pp_i_gt +#define pp_i_gt pPerl->Perl_pp_i_gt +#undef pp_i_le +#define pp_i_le pPerl->Perl_pp_i_le +#undef pp_i_lt +#define pp_i_lt pPerl->Perl_pp_i_lt +#undef pp_i_modulo +#define pp_i_modulo pPerl->Perl_pp_i_modulo +#undef pp_i_multiply +#define pp_i_multiply pPerl->Perl_pp_i_multiply +#undef pp_i_ncmp +#define pp_i_ncmp pPerl->Perl_pp_i_ncmp +#undef pp_i_ne +#define pp_i_ne pPerl->Perl_pp_i_ne +#undef pp_i_negate +#define pp_i_negate pPerl->Perl_pp_i_negate +#undef pp_i_subtract +#define pp_i_subtract pPerl->Perl_pp_i_subtract +#undef pp_index +#define pp_index pPerl->Perl_pp_index +#undef pp_int +#define pp_int pPerl->Perl_pp_int +#undef pp_ioctl +#define pp_ioctl pPerl->Perl_pp_ioctl +#undef pp_iter +#define pp_iter pPerl->Perl_pp_iter +#undef pp_join +#define pp_join pPerl->Perl_pp_join +#undef pp_keys +#define pp_keys pPerl->Perl_pp_keys +#undef pp_kill +#define pp_kill pPerl->Perl_pp_kill +#undef pp_last +#define pp_last pPerl->Perl_pp_last +#undef pp_lc +#define pp_lc pPerl->Perl_pp_lc +#undef pp_lcfirst +#define pp_lcfirst pPerl->Perl_pp_lcfirst +#undef pp_le +#define pp_le pPerl->Perl_pp_le +#undef pp_leave +#define pp_leave pPerl->Perl_pp_leave +#undef pp_leaveeval +#define pp_leaveeval pPerl->Perl_pp_leaveeval +#undef pp_leaveloop +#define pp_leaveloop pPerl->Perl_pp_leaveloop +#undef pp_leavesub +#define pp_leavesub pPerl->Perl_pp_leavesub +#undef pp_leavetry +#define pp_leavetry pPerl->Perl_pp_leavetry +#undef pp_leavewrite +#define pp_leavewrite pPerl->Perl_pp_leavewrite +#undef pp_left_shift +#define pp_left_shift pPerl->Perl_pp_left_shift +#undef pp_length +#define pp_length pPerl->Perl_pp_length +#undef pp_lineseq +#define pp_lineseq pPerl->Perl_pp_lineseq +#undef pp_link +#define pp_link pPerl->Perl_pp_link +#undef pp_list +#define pp_list pPerl->Perl_pp_list +#undef pp_listen +#define pp_listen pPerl->Perl_pp_listen +#undef pp_localtime +#define pp_localtime pPerl->Perl_pp_localtime +#undef pp_lock +#define pp_lock pPerl->Perl_pp_lock +#undef pp_log +#define pp_log pPerl->Perl_pp_log +#undef pp_lslice +#define pp_lslice pPerl->Perl_pp_lslice +#undef pp_lstat +#define pp_lstat pPerl->Perl_pp_lstat +#undef pp_lt +#define pp_lt pPerl->Perl_pp_lt +#undef pp_mapstart +#define pp_mapstart pPerl->Perl_pp_mapstart +#undef pp_mapwhile +#define pp_mapwhile pPerl->Perl_pp_mapwhile +#undef pp_match +#define pp_match pPerl->Perl_pp_match +#undef pp_method +#define pp_method pPerl->Perl_pp_method +#undef pp_mkdir +#define pp_mkdir pPerl->Perl_pp_mkdir +#undef pp_modulo +#define pp_modulo pPerl->Perl_pp_modulo +#undef pp_msgctl +#define pp_msgctl pPerl->Perl_pp_msgctl +#undef pp_msgget +#define pp_msgget pPerl->Perl_pp_msgget +#undef pp_msgrcv +#define pp_msgrcv pPerl->Perl_pp_msgrcv +#undef pp_msgsnd +#define pp_msgsnd pPerl->Perl_pp_msgsnd +#undef pp_multiply +#define pp_multiply pPerl->Perl_pp_multiply +#undef pp_ncmp +#define pp_ncmp pPerl->Perl_pp_ncmp +#undef pp_ne +#define pp_ne pPerl->Perl_pp_ne +#undef pp_negate +#define pp_negate pPerl->Perl_pp_negate +#undef pp_next +#define pp_next pPerl->Perl_pp_next +#undef pp_nextstate +#define pp_nextstate pPerl->Perl_pp_nextstate +#undef pp_not +#define pp_not pPerl->Perl_pp_not +#undef pp_null +#define pp_null pPerl->Perl_pp_null +#undef pp_oct +#define pp_oct pPerl->Perl_pp_oct +#undef pp_open +#define pp_open pPerl->Perl_pp_open +#undef pp_open_dir +#define pp_open_dir pPerl->Perl_pp_open_dir +#undef pp_or +#define pp_or pPerl->Perl_pp_or +#undef pp_orassign +#define pp_orassign pPerl->Perl_pp_orassign +#undef pp_ord +#define pp_ord pPerl->Perl_pp_ord +#undef pp_pack +#define pp_pack pPerl->Perl_pp_pack +#undef pp_padany +#define pp_padany pPerl->Perl_pp_padany +#undef pp_padav +#define pp_padav pPerl->Perl_pp_padav +#undef pp_padhv +#define pp_padhv pPerl->Perl_pp_padhv +#undef pp_padsv +#define pp_padsv pPerl->Perl_pp_padsv +#undef pp_pipe_op +#define pp_pipe_op pPerl->Perl_pp_pipe_op +#undef pp_pop +#define pp_pop pPerl->Perl_pp_pop +#undef pp_pos +#define pp_pos pPerl->Perl_pp_pos +#undef pp_postdec +#define pp_postdec pPerl->Perl_pp_postdec +#undef pp_postinc +#define pp_postinc pPerl->Perl_pp_postinc +#undef pp_pow +#define pp_pow pPerl->Perl_pp_pow +#undef pp_predec +#define pp_predec pPerl->Perl_pp_predec +#undef pp_preinc +#define pp_preinc pPerl->Perl_pp_preinc +#undef pp_print +#define pp_print pPerl->Perl_pp_print +#undef pp_prototype +#define pp_prototype pPerl->Perl_pp_prototype +#undef pp_prtf +#define pp_prtf pPerl->Perl_pp_prtf +#undef pp_push +#define pp_push pPerl->Perl_pp_push +#undef pp_pushmark +#define pp_pushmark pPerl->Perl_pp_pushmark +#undef pp_pushre +#define pp_pushre pPerl->Perl_pp_pushre +#undef pp_qr +#define pp_qr pPerl->Perl_pp_qr +#undef pp_quotemeta +#define pp_quotemeta pPerl->Perl_pp_quotemeta +#undef pp_rand +#define pp_rand pPerl->Perl_pp_rand +#undef pp_range +#define pp_range pPerl->Perl_pp_range +#undef pp_rcatline +#define pp_rcatline pPerl->Perl_pp_rcatline +#undef pp_read +#define pp_read pPerl->Perl_pp_read +#undef pp_readdir +#define pp_readdir pPerl->Perl_pp_readdir +#undef pp_readline +#define pp_readline pPerl->Perl_pp_readline +#undef pp_readlink +#define pp_readlink pPerl->Perl_pp_readlink +#undef pp_recv +#define pp_recv pPerl->Perl_pp_recv +#undef pp_redo +#define pp_redo pPerl->Perl_pp_redo +#undef pp_ref +#define pp_ref pPerl->Perl_pp_ref +#undef pp_refgen +#define pp_refgen pPerl->Perl_pp_refgen +#undef pp_regcmaybe +#define pp_regcmaybe pPerl->Perl_pp_regcmaybe +#undef pp_regcomp +#define pp_regcomp pPerl->Perl_pp_regcomp +#undef pp_regcreset +#define pp_regcreset pPerl->Perl_pp_regcreset +#undef pp_rename +#define pp_rename pPerl->Perl_pp_rename +#undef pp_repeat +#define pp_repeat pPerl->Perl_pp_repeat +#undef pp_require +#define pp_require pPerl->Perl_pp_require +#undef pp_reset +#define pp_reset pPerl->Perl_pp_reset +#undef pp_return +#define pp_return pPerl->Perl_pp_return +#undef pp_reverse +#define pp_reverse pPerl->Perl_pp_reverse +#undef pp_rewinddir +#define pp_rewinddir pPerl->Perl_pp_rewinddir +#undef pp_right_shift +#define pp_right_shift pPerl->Perl_pp_right_shift +#undef pp_rindex +#define pp_rindex pPerl->Perl_pp_rindex +#undef pp_rmdir +#define pp_rmdir pPerl->Perl_pp_rmdir +#undef pp_rv2av +#define pp_rv2av pPerl->Perl_pp_rv2av +#undef pp_rv2cv +#define pp_rv2cv pPerl->Perl_pp_rv2cv +#undef pp_rv2gv +#define pp_rv2gv pPerl->Perl_pp_rv2gv +#undef pp_rv2hv +#define pp_rv2hv pPerl->Perl_pp_rv2hv +#undef pp_rv2sv +#define pp_rv2sv pPerl->Perl_pp_rv2sv +#undef pp_sassign +#define pp_sassign pPerl->Perl_pp_sassign +#undef pp_scalar +#define pp_scalar pPerl->Perl_pp_scalar +#undef pp_schomp +#define pp_schomp pPerl->Perl_pp_schomp +#undef pp_schop +#define pp_schop pPerl->Perl_pp_schop +#undef pp_scmp +#define pp_scmp pPerl->Perl_pp_scmp +#undef pp_scope +#define pp_scope pPerl->Perl_pp_scope +#undef pp_seek +#define pp_seek pPerl->Perl_pp_seek +#undef pp_seekdir +#define pp_seekdir pPerl->Perl_pp_seekdir +#undef pp_select +#define pp_select pPerl->Perl_pp_select +#undef pp_semctl +#define pp_semctl pPerl->Perl_pp_semctl +#undef pp_semget +#define pp_semget pPerl->Perl_pp_semget +#undef pp_semop +#define pp_semop pPerl->Perl_pp_semop +#undef pp_send +#define pp_send pPerl->Perl_pp_send +#undef pp_seq +#define pp_seq pPerl->Perl_pp_seq +#undef pp_setpgrp +#define pp_setpgrp pPerl->Perl_pp_setpgrp +#undef pp_setpriority +#define pp_setpriority pPerl->Perl_pp_setpriority +#undef pp_sge +#define pp_sge pPerl->Perl_pp_sge +#undef pp_sgrent +#define pp_sgrent pPerl->Perl_pp_sgrent +#undef pp_sgt +#define pp_sgt pPerl->Perl_pp_sgt +#undef pp_shift +#define pp_shift pPerl->Perl_pp_shift +#undef pp_shmctl +#define pp_shmctl pPerl->Perl_pp_shmctl +#undef pp_shmget +#define pp_shmget pPerl->Perl_pp_shmget +#undef pp_shmread +#define pp_shmread pPerl->Perl_pp_shmread +#undef pp_shmwrite +#define pp_shmwrite pPerl->Perl_pp_shmwrite +#undef pp_shostent +#define pp_shostent pPerl->Perl_pp_shostent +#undef pp_shutdown +#define pp_shutdown pPerl->Perl_pp_shutdown +#undef pp_sin +#define pp_sin pPerl->Perl_pp_sin +#undef pp_sle +#define pp_sle pPerl->Perl_pp_sle +#undef pp_sleep +#define pp_sleep pPerl->Perl_pp_sleep +#undef pp_slt +#define pp_slt pPerl->Perl_pp_slt +#undef pp_sne +#define pp_sne pPerl->Perl_pp_sne +#undef pp_snetent +#define pp_snetent pPerl->Perl_pp_snetent +#undef pp_socket +#define pp_socket pPerl->Perl_pp_socket +#undef pp_sockpair +#define pp_sockpair pPerl->Perl_pp_sockpair +#undef pp_sort +#define pp_sort pPerl->Perl_pp_sort +#undef pp_splice +#define pp_splice pPerl->Perl_pp_splice +#undef pp_split +#define pp_split pPerl->Perl_pp_split +#undef pp_sprintf +#define pp_sprintf pPerl->Perl_pp_sprintf +#undef pp_sprotoent +#define pp_sprotoent pPerl->Perl_pp_sprotoent +#undef pp_spwent +#define pp_spwent pPerl->Perl_pp_spwent +#undef pp_sqrt +#define pp_sqrt pPerl->Perl_pp_sqrt +#undef pp_srand +#define pp_srand pPerl->Perl_pp_srand +#undef pp_srefgen +#define pp_srefgen pPerl->Perl_pp_srefgen +#undef pp_sselect +#define pp_sselect pPerl->Perl_pp_sselect +#undef pp_sservent +#define pp_sservent pPerl->Perl_pp_sservent +#undef pp_ssockopt +#define pp_ssockopt pPerl->Perl_pp_ssockopt +#undef pp_stat +#define pp_stat pPerl->Perl_pp_stat +#undef pp_stringify +#define pp_stringify pPerl->Perl_pp_stringify +#undef pp_stub +#define pp_stub pPerl->Perl_pp_stub +#undef pp_study +#define pp_study pPerl->Perl_pp_study +#undef pp_subst +#define pp_subst pPerl->Perl_pp_subst +#undef pp_substcont +#define pp_substcont pPerl->Perl_pp_substcont +#undef pp_substr +#define pp_substr pPerl->Perl_pp_substr +#undef pp_subtract +#define pp_subtract pPerl->Perl_pp_subtract +#undef pp_symlink +#define pp_symlink pPerl->Perl_pp_symlink +#undef pp_syscall +#define pp_syscall pPerl->Perl_pp_syscall +#undef pp_sysopen +#define pp_sysopen pPerl->Perl_pp_sysopen +#undef pp_sysread +#define pp_sysread pPerl->Perl_pp_sysread +#undef pp_sysseek +#define pp_sysseek pPerl->Perl_pp_sysseek +#undef pp_system +#define pp_system pPerl->Perl_pp_system +#undef pp_syswrite +#define pp_syswrite pPerl->Perl_pp_syswrite +#undef pp_tell +#define pp_tell pPerl->Perl_pp_tell +#undef pp_telldir +#define pp_telldir pPerl->Perl_pp_telldir +#undef pp_threadsv +#define pp_threadsv pPerl->Perl_pp_threadsv +#undef pp_tie +#define pp_tie pPerl->Perl_pp_tie +#undef pp_tied +#define pp_tied pPerl->Perl_pp_tied +#undef pp_time +#define pp_time pPerl->Perl_pp_time +#undef pp_tms +#define pp_tms pPerl->Perl_pp_tms +#undef pp_trans +#define pp_trans pPerl->Perl_pp_trans +#undef pp_truncate +#define pp_truncate pPerl->Perl_pp_truncate +#undef pp_uc +#define pp_uc pPerl->Perl_pp_uc +#undef pp_ucfirst +#define pp_ucfirst pPerl->Perl_pp_ucfirst +#undef pp_umask +#define pp_umask pPerl->Perl_pp_umask +#undef pp_undef +#define pp_undef pPerl->Perl_pp_undef +#undef pp_unlink +#define pp_unlink pPerl->Perl_pp_unlink +#undef pp_unpack +#define pp_unpack pPerl->Perl_pp_unpack +#undef pp_unshift +#define pp_unshift pPerl->Perl_pp_unshift +#undef pp_unstack +#define pp_unstack pPerl->Perl_pp_unstack +#undef pp_untie +#define pp_untie pPerl->Perl_pp_untie +#undef pp_utime +#define pp_utime pPerl->Perl_pp_utime +#undef pp_values +#define pp_values pPerl->Perl_pp_values +#undef pp_vec +#define pp_vec pPerl->Perl_pp_vec +#undef pp_wait +#define pp_wait pPerl->Perl_pp_wait +#undef pp_waitpid +#define pp_waitpid pPerl->Perl_pp_waitpid +#undef pp_wantarray +#define pp_wantarray pPerl->Perl_pp_wantarray +#undef pp_warn +#define pp_warn pPerl->Perl_pp_warn +#undef pp_xor +#define pp_xor pPerl->Perl_pp_xor +#undef pregcomp +#define pregcomp pPerl->Perl_pregcomp +#undef pregexec +#define pregexec pPerl->Perl_pregexec +#undef pregfree +#define pregfree pPerl->Perl_pregfree #undef prepend_elem -#define prepend_elem pPerl->Perl_prepend_elem +#define prepend_elem pPerl->Perl_prepend_elem #undef push_return -#define push_return pPerl->Perl_push_return +#define push_return pPerl->Perl_push_return #undef push_scope -#define push_scope pPerl->Perl_push_scope -#undef pregcomp -#define pregcomp pPerl->Perl_pregcomp +#define push_scope pPerl->Perl_push_scope +#undef qsortsv +#define qsortsv pPerl->Perl_qsortsv +#undef re_croak2 +#define re_croak2 pPerl->Perl_re_croak2 #undef ref -#define ref pPerl->Perl_ref +#define ref pPerl->Perl_ref #undef refkids -#define refkids pPerl->Perl_refkids -#undef regexec_flags -#define regexec_flags pPerl->Perl_regexec_flags -#undef pregexec -#define pregexec pPerl->Perl_pregexec -#undef pregfree -#define pregfree pPerl->Perl_pregfree +#define refkids pPerl->Perl_refkids +#undef refto +#define refto pPerl->Perl_refto +#undef reg +#define reg pPerl->Perl_reg +#undef reg_node +#define reg_node pPerl->Perl_reg_node +#undef reganode +#define reganode pPerl->Perl_reganode +#undef regatom +#define regatom pPerl->Perl_regatom +#undef regbranch +#define regbranch pPerl->Perl_regbranch +#undef regc +#define regc pPerl->Perl_regc +#undef regclass +#define regclass pPerl->Perl_regclass +#undef regclassutf8 +#define regclassutf8 pPerl->Perl_regclassutf8 +#undef regcp_set_to +#define regcp_set_to pPerl->Perl_regcp_set_to +#undef regcppop +#define regcppop pPerl->Perl_regcppop +#undef regcppush +#define regcppush pPerl->Perl_regcppush +#undef regcurly +#define regcurly pPerl->Perl_regcurly #undef regdump -#define regdump pPerl->Perl_regdump +#define regdump pPerl->Perl_regdump +#undef regexec_flags +#define regexec_flags pPerl->Perl_regexec_flags +#undef reghop +#define reghop pPerl->Perl_reghop +#undef reghopmaybe +#define reghopmaybe pPerl->Perl_reghopmaybe +#undef reginclass +#define reginclass pPerl->Perl_reginclass +#undef reginclassutf8 +#define reginclassutf8 pPerl->Perl_reginclassutf8 +#undef reginsert +#define reginsert pPerl->Perl_reginsert +#undef regmatch +#define regmatch pPerl->Perl_regmatch #undef regnext -#define regnext pPerl->Perl_regnext -#undef regnoderegnext -#define regnoderegnext pPerl->regnoderegnext +#define regnext pPerl->Perl_regnext +#undef regoptail +#define regoptail pPerl->Perl_regoptail +#undef regpiece +#define regpiece pPerl->Perl_regpiece #undef regprop -#define regprop pPerl->Perl_regprop +#define regprop pPerl->Perl_regprop +#undef regrepeat +#define regrepeat pPerl->Perl_regrepeat +#undef regrepeat_hard +#define regrepeat_hard pPerl->Perl_regrepeat_hard +#undef regset +#define regset pPerl->Perl_regset +#undef regtail +#define regtail pPerl->Perl_regtail +#undef regtry +#define regtry pPerl->Perl_regtry +#undef reguni +#define reguni pPerl->Perl_reguni +#undef regwhite +#define regwhite pPerl->Perl_regwhite #undef repeatcpy -#define repeatcpy pPerl->Perl_repeatcpy +#define repeatcpy pPerl->Perl_repeatcpy +#undef restore_expect +#define restore_expect pPerl->Perl_restore_expect +#undef restore_lex_expect +#define restore_lex_expect pPerl->Perl_restore_lex_expect +#undef restore_magic +#define restore_magic pPerl->Perl_restore_magic +#undef restore_rsfp +#define restore_rsfp pPerl->Perl_restore_rsfp #undef rninstr -#define rninstr pPerl->Perl_rninstr +#define rninstr pPerl->Perl_rninstr #undef rsignal -#define rsignal pPerl->Perl_rsignal +#define rsignal pPerl->Perl_rsignal #undef rsignal_restore -#define rsignal_restore pPerl->Perl_rsignal_restore +#define rsignal_restore pPerl->Perl_rsignal_restore #undef rsignal_save -#define rsignal_save pPerl->Perl_rsignal_save +#define rsignal_save pPerl->Perl_rsignal_save #undef rsignal_state -#define rsignal_state pPerl->Perl_rsignal_state -#undef run -#define run pPerl->Perl_run +#define rsignal_state pPerl->Perl_rsignal_state +#undef runops_debug +#define runops_debug pPerl->Perl_runops_debug +#undef runops_debug +#define runops_debug pPerl->Perl_runops_debug +#undef runops_standard +#define runops_standard pPerl->Perl_runops_standard +#undef runops_standard +#define runops_standard pPerl->Perl_runops_standard #undef rxres_free -#define rxres_free pPerl->Perl_rxres_free +#define rxres_free pPerl->Perl_rxres_free #undef rxres_restore -#define rxres_restore pPerl->Perl_rxres_restore +#define rxres_restore pPerl->Perl_rxres_restore #undef rxres_save -#define rxres_save pPerl->Perl_rxres_save -#undef safefree -#define safefree pPerl->Perl_safefree +#define rxres_save pPerl->Perl_rxres_save #undef safecalloc -#define safecalloc pPerl->Perl_safecalloc +#define safecalloc pPerl->Perl_safecalloc +#undef safefree +#define safefree pPerl->Perl_safefree #undef safemalloc -#define safemalloc pPerl->Perl_safemalloc +#define safemalloc pPerl->Perl_safemalloc #undef saferealloc -#define saferealloc pPerl->Perl_saferealloc +#define saferealloc pPerl->Perl_saferealloc #undef safexcalloc -#define safexcalloc pPerl->Perl_safexcalloc +#define safexcalloc pPerl->Perl_safexcalloc #undef safexfree -#define safexfree pPerl->Perl_safexfree +#define safexfree pPerl->Perl_safexfree #undef safexmalloc -#define safexmalloc pPerl->Perl_safexmalloc +#define safexmalloc pPerl->Perl_safexmalloc #undef safexrealloc -#define safexrealloc pPerl->Perl_safexrealloc +#define safexrealloc pPerl->Perl_safexrealloc #undef same_dirent -#define same_dirent pPerl->Perl_same_dirent -#undef savepv -#define savepv pPerl->Perl_savepv -#undef savepvn -#define savepvn pPerl->Perl_savepvn -#undef savestack_grow -#define savestack_grow pPerl->Perl_savestack_grow +#define same_dirent pPerl->Perl_same_dirent +#undef save_I16 +#define save_I16 pPerl->Perl_save_I16 +#undef save_I32 +#define save_I32 pPerl->Perl_save_I32 #undef save_aelem -#define save_aelem pPerl->Perl_save_aelem +#define save_aelem pPerl->Perl_save_aelem #undef save_alloc -#define save_alloc pPerl->Perl_save_alloc +#define save_alloc pPerl->Perl_save_alloc #undef save_aptr -#define save_aptr pPerl->Perl_save_aptr +#define save_aptr pPerl->Perl_save_aptr #undef save_ary -#define save_ary pPerl->Perl_save_ary +#define save_ary pPerl->Perl_save_ary #undef save_clearsv -#define save_clearsv pPerl->Perl_save_clearsv +#define save_clearsv pPerl->Perl_save_clearsv #undef save_delete -#define save_delete pPerl->Perl_save_delete +#define save_delete pPerl->Perl_save_delete #undef save_destructor -#define save_destructor pPerl->Perl_save_destructor -#undef save_freesv -#define save_freesv pPerl->Perl_save_freesv +#define save_destructor pPerl->Perl_save_destructor #undef save_freeop -#define save_freeop pPerl->Perl_save_freeop +#define save_freeop pPerl->Perl_save_freeop #undef save_freepv -#define save_freepv pPerl->Perl_save_freepv +#define save_freepv pPerl->Perl_save_freepv +#undef save_freesv +#define save_freesv pPerl->Perl_save_freesv #undef save_generic_svref -#define save_generic_svref pPerl->Perl_generic_save_svref +#define save_generic_svref pPerl->Perl_save_generic_svref #undef save_gp -#define save_gp pPerl->Perl_save_gp +#define save_gp pPerl->Perl_save_gp #undef save_hash -#define save_hash pPerl->Perl_save_hash +#define save_hash pPerl->Perl_save_hash +#undef save_hek +#define save_hek pPerl->Perl_save_hek #undef save_helem -#define save_helem pPerl->Perl_save_helem +#define save_helem pPerl->Perl_save_helem #undef save_hints -#define save_hints pPerl->Perl_save_hints +#define save_hints pPerl->Perl_save_hints #undef save_hptr -#define save_hptr pPerl->Perl_save_hptr -#undef save_I16 -#define save_I16 pPerl->Perl_save_I16 -#undef save_I32 -#define save_I32 pPerl->Perl_save_I32 +#define save_hptr pPerl->Perl_save_hptr #undef save_int -#define save_int pPerl->Perl_save_int +#define save_int pPerl->Perl_save_int #undef save_item -#define save_item pPerl->Perl_save_item +#define save_item pPerl->Perl_save_item #undef save_iv -#define save_iv pPerl->Perl_save_iv +#define save_iv pPerl->Perl_save_iv +#undef save_lines +#define save_lines pPerl->Perl_save_lines #undef save_list -#define save_list pPerl->Perl_save_list +#define save_list pPerl->Perl_save_list #undef save_long -#define save_long pPerl->Perl_save_long +#define save_long pPerl->Perl_save_long +#undef save_magic +#define save_magic pPerl->Perl_save_magic #undef save_nogv -#define save_nogv pPerl->Perl_save_nogv +#define save_nogv pPerl->Perl_save_nogv #undef save_op -#define save_op pPerl->Perl_save_op -#undef save_scalar -#define save_scalar pPerl->Perl_save_scalar +#define save_op pPerl->Perl_save_op #undef save_pptr -#define save_pptr pPerl->Perl_save_pptr +#define save_pptr pPerl->Perl_save_pptr #undef save_re_context -#define save_re_context pPerl->Perl_save_re_context +#define save_re_context pPerl->Perl_save_re_context +#undef save_scalar +#define save_scalar pPerl->Perl_save_scalar +#undef save_scalar_at +#define save_scalar_at pPerl->Perl_save_scalar_at #undef save_sptr -#define save_sptr pPerl->Perl_save_sptr +#define save_sptr pPerl->Perl_save_sptr #undef save_svref -#define save_svref pPerl->Perl_save_svref +#define save_svref pPerl->Perl_save_svref #undef save_threadsv -#define save_threadsv pPerl->Perl_save_threadsv +#define save_threadsv pPerl->Perl_save_threadsv +#undef savepv +#define savepv pPerl->Perl_savepv +#undef savepvn +#define savepvn pPerl->Perl_savepvn +#undef savestack_grow +#define savestack_grow pPerl->Perl_savestack_grow #undef sawparens -#define sawparens pPerl->Perl_sawparens +#define sawparens pPerl->Perl_sawparens #undef scalar -#define scalar pPerl->Perl_scalar +#define scalar pPerl->Perl_scalar +#undef scalarboolean +#define scalarboolean pPerl->Perl_scalarboolean #undef scalarkids -#define scalarkids pPerl->Perl_scalarkids +#define scalarkids pPerl->Perl_scalarkids #undef scalarseq -#define scalarseq pPerl->Perl_scalarseq +#define scalarseq pPerl->Perl_scalarseq #undef scalarvoid -#define scalarvoid pPerl->Perl_scalarvoid +#define scalarvoid pPerl->Perl_scalarvoid +#undef scan_commit +#define scan_commit pPerl->Perl_scan_commit #undef scan_const -#define scan_const pPerl->Perl_scan_const +#define scan_const pPerl->Perl_scan_const +#undef scan_const +#define scan_const pPerl->Perl_scan_const #undef scan_formline -#define scan_formline pPerl->Perl_scan_formline -#undef scan_ident -#define scan_ident pPerl->Perl_scan_ident -#undef scan_inputsymbol -#define scan_inputsymbol pPerl->Perl_scan_inputsymbol +#define scan_formline pPerl->Perl_scan_formline +#undef scan_formline +#define scan_formline pPerl->Perl_scan_formline +#undef scan_heredoc +#define scan_heredoc pPerl->Perl_scan_heredoc #undef scan_heredoc -#define scan_heredoc pPerl->Perl_scan_heredoc +#define scan_heredoc pPerl->Perl_scan_heredoc #undef scan_hex -#define scan_hex pPerl->Perl_scan_hex +#define scan_hex pPerl->Perl_scan_hex +#undef scan_ident +#define scan_ident pPerl->Perl_scan_ident +#undef scan_ident +#define scan_ident pPerl->Perl_scan_ident +#undef scan_inputsymbol +#define scan_inputsymbol pPerl->Perl_scan_inputsymbol +#undef scan_inputsymbol +#define scan_inputsymbol pPerl->Perl_scan_inputsymbol #undef scan_num -#define scan_num pPerl->Perl_scan_num +#define scan_num pPerl->Perl_scan_num #undef scan_oct -#define scan_oct pPerl->Perl_scan_oct +#define scan_oct pPerl->Perl_scan_oct #undef scan_pat -#define scan_pat pPerl->Perl_scan_pat +#define scan_pat pPerl->Perl_scan_pat +#undef scan_pat +#define scan_pat pPerl->Perl_scan_pat +#undef scan_prefix +#define scan_prefix pPerl->Perl_scan_prefix +#undef scan_str +#define scan_str pPerl->Perl_scan_str #undef scan_str -#define scan_str pPerl->Perl_scan_str +#define scan_str pPerl->Perl_scan_str +#undef scan_subst +#define scan_subst pPerl->Perl_scan_subst #undef scan_subst -#define scan_subst pPerl->Perl_scan_subst +#define scan_subst pPerl->Perl_scan_subst #undef scan_trans -#define scan_trans pPerl->Perl_scan_trans +#define scan_trans pPerl->Perl_scan_trans +#undef scan_trans +#define scan_trans pPerl->Perl_scan_trans +#undef scan_word +#define scan_word pPerl->Perl_scan_word +#undef scan_word +#define scan_word pPerl->Perl_scan_word #undef scope -#define scope pPerl->Perl_scope +#define scope pPerl->Perl_scope #undef screaminstr -#define screaminstr pPerl->Perl_screaminstr +#define screaminstr pPerl->Perl_screaminstr +#undef seed +#define seed pPerl->Perl_seed +#undef set_csh +#define set_csh pPerl->Perl_set_csh #undef setdefout -#define setdefout pPerl->Perl_setdefout +#define setdefout pPerl->Perl_setdefout #undef setenv_getix -#define setenv_getix pPerl->Perl_setenv_getix +#define setenv_getix pPerl->Perl_setenv_getix #undef share_hek -#define share_hek pPerl->Perl_share_hek +#define share_hek pPerl->Perl_share_hek #undef sharepvn -#define sharepvn pPerl->Perl_sharepvn +#define sharepvn pPerl->Perl_sharepvn #undef sighandler -#define sighandler pPerl->Perl_sighandler +#define sighandler pPerl->Perl_sighandler +#undef skipspace +#define skipspace pPerl->Perl_skipspace #undef skipspace -#define skipspace pPerl->Perl_skipspace +#define skipspace pPerl->Perl_skipspace +#undef sortcv +#define sortcv pPerl->Perl_sortcv #undef stack_grow -#define stack_grow pPerl->Perl_stack_grow +#define stack_grow pPerl->Perl_stack_grow #undef start_subparse -#define start_subparse pPerl->Perl_start_subparse +#define start_subparse pPerl->Perl_start_subparse +#undef study_chunk +#define study_chunk pPerl->Perl_study_chunk #undef sub_crush_depth -#define sub_crush_depth pPerl->Perl_sub_crush_depth +#define sub_crush_depth pPerl->Perl_sub_crush_depth #undef sublex_done -#define sublex_done pPerl->Perl_sublex_done +#define sublex_done pPerl->Perl_sublex_done +#undef sublex_push +#define sublex_push pPerl->Perl_sublex_push #undef sublex_start -#define sublex_start pPerl->Perl_sublex_start +#define sublex_start pPerl->Perl_sublex_start #undef sv_2bool -#define sv_2bool pPerl->Perl_sv_2bool +#define sv_2bool pPerl->Perl_sv_2bool #undef sv_2cv -#define sv_2cv pPerl->Perl_sv_2cv +#define sv_2cv pPerl->Perl_sv_2cv #undef sv_2io -#define sv_2io pPerl->Perl_sv_2io +#define sv_2io pPerl->Perl_sv_2io #undef sv_2iv -#define sv_2iv pPerl->Perl_sv_2iv +#define sv_2iv pPerl->Perl_sv_2iv #undef sv_2mortal -#define sv_2mortal pPerl->Perl_sv_2mortal +#define sv_2mortal pPerl->Perl_sv_2mortal #undef sv_2nv -#define sv_2nv pPerl->Perl_sv_2nv +#define sv_2nv pPerl->Perl_sv_2nv #undef sv_2pv -#define sv_2pv pPerl->Perl_sv_2pv +#define sv_2pv pPerl->Perl_sv_2pv #undef sv_2uv -#define sv_2uv pPerl->Perl_sv_2uv +#define sv_2uv pPerl->Perl_sv_2uv #undef sv_add_arena -#define sv_add_arena pPerl->Perl_sv_add_arena +#define sv_add_arena pPerl->Perl_sv_add_arena #undef sv_backoff -#define sv_backoff pPerl->Perl_sv_backoff +#define sv_backoff pPerl->Perl_sv_backoff #undef sv_bless -#define sv_bless pPerl->Perl_sv_bless +#define sv_bless pPerl->Perl_sv_bless #undef sv_catpv -#define sv_catpv pPerl->Perl_sv_catpv +#define sv_catpv pPerl->Perl_sv_catpv +#undef sv_catpv_mg +#define sv_catpv_mg pPerl->Perl_sv_catpv_mg #undef sv_catpvf -#define sv_catpvf pPerl->Perl_sv_catpvf +#define sv_catpvf pPerl->Perl_sv_catpvf +#undef sv_catpvf_mg +#define sv_catpvf_mg pPerl->Perl_sv_catpvf_mg #undef sv_catpvn -#define sv_catpvn pPerl->Perl_sv_catpvn +#define sv_catpvn pPerl->Perl_sv_catpvn +#undef sv_catpvn_mg +#define sv_catpvn_mg pPerl->Perl_sv_catpvn_mg #undef sv_catsv -#define sv_catsv pPerl->Perl_sv_catsv +#define sv_catsv pPerl->Perl_sv_catsv +#undef sv_catsv_mg +#define sv_catsv_mg pPerl->Perl_sv_catsv_mg +#undef sv_check_thinkfirst +#define sv_check_thinkfirst pPerl->Perl_sv_check_thinkfirst #undef sv_chop -#define sv_chop pPerl->Perl_sv_chop +#define sv_chop pPerl->Perl_sv_chop #undef sv_clean_all -#define sv_clean_all pPerl->Perl_sv_clean_all +#define sv_clean_all pPerl->Perl_sv_clean_all #undef sv_clean_objs -#define sv_clean_objs pPerl->Perl_sv_clean_objs +#define sv_clean_objs pPerl->Perl_sv_clean_objs #undef sv_clear -#define sv_clear pPerl->Perl_sv_clear +#define sv_clear pPerl->Perl_sv_clear #undef sv_cmp -#define sv_cmp pPerl->Perl_sv_cmp +#define sv_cmp pPerl->Perl_sv_cmp #undef sv_cmp_locale -#define sv_cmp_locale pPerl->Perl_sv_cmp_locale +#define sv_cmp_locale pPerl->Perl_sv_cmp_locale #undef sv_collxfrm -#define sv_collxfrm pPerl->Perl_sv_collxfrm +#define sv_collxfrm pPerl->Perl_sv_collxfrm #undef sv_compile_2op -#define sv_compile_2op pPerl->Perl_sv_compile_2op +#define sv_compile_2op pPerl->Perl_sv_compile_2op #undef sv_dec -#define sv_dec pPerl->Perl_sv_dec +#define sv_dec pPerl->Perl_sv_dec #undef sv_derived_from -#define sv_derived_from pPerl->Perl_sv_derived_from +#define sv_derived_from pPerl->Perl_sv_derived_from #undef sv_dump -#define sv_dump pPerl->Perl_sv_dump +#define sv_dump pPerl->Perl_sv_dump #undef sv_eq -#define sv_eq pPerl->Perl_sv_eq +#define sv_eq pPerl->Perl_sv_eq #undef sv_free -#define sv_free pPerl->Perl_sv_free +#define sv_free pPerl->Perl_sv_free #undef sv_free_arenas -#define sv_free_arenas pPerl->Perl_sv_free_arenas +#define sv_free_arenas pPerl->Perl_sv_free_arenas #undef sv_gets -#define sv_gets pPerl->Perl_sv_gets +#define sv_gets pPerl->Perl_sv_gets #undef sv_grow -#define sv_grow pPerl->Perl_sv_grow +#define sv_grow pPerl->Perl_sv_grow #undef sv_inc -#define sv_inc pPerl->Perl_sv_inc +#define sv_inc pPerl->Perl_sv_inc #undef sv_insert -#define sv_insert pPerl->Perl_sv_insert +#define sv_insert pPerl->Perl_sv_insert #undef sv_isa -#define sv_isa pPerl->Perl_sv_isa +#define sv_isa pPerl->Perl_sv_isa #undef sv_isobject -#define sv_isobject pPerl->Perl_sv_isobject +#define sv_isobject pPerl->Perl_sv_isobject #undef sv_iv -#define sv_iv pPerl->Perl_sv_iv +#define sv_iv pPerl->Perl_sv_iv #undef sv_len -#define sv_len pPerl->Perl_sv_len +#define sv_len pPerl->Perl_sv_len #undef sv_len_utf8 -#define sv_len_utf8 pPerl->Perl_sv_len_utf8 -#undef sv_pos_u2b -#define sv_pos_u2b pPerl->Perl_sv_pos_u2b -#undef sv_pos_b2u -#define sv_pos_b2u pPerl->Perl_sv_pos_b2u +#define sv_len_utf8 pPerl->Perl_sv_len_utf8 #undef sv_magic -#define sv_magic pPerl->Perl_sv_magic +#define sv_magic pPerl->Perl_sv_magic #undef sv_mortalcopy -#define sv_mortalcopy pPerl->Perl_sv_mortalcopy +#define sv_mortalcopy pPerl->Perl_sv_mortalcopy +#undef sv_mortalgrow +#define sv_mortalgrow pPerl->Perl_sv_mortalgrow #undef sv_newmortal -#define sv_newmortal pPerl->Perl_sv_newmortal +#define sv_newmortal pPerl->Perl_sv_newmortal #undef sv_newref -#define sv_newref pPerl->Perl_sv_newref +#define sv_newref pPerl->Perl_sv_newref #undef sv_nv -#define sv_nv pPerl->Perl_sv_nv +#define sv_nv pPerl->Perl_sv_nv #undef sv_peek -#define sv_peek pPerl->Perl_sv_peek +#define sv_peek pPerl->Perl_sv_peek +#undef sv_pos_b2u +#define sv_pos_b2u pPerl->Perl_sv_pos_b2u +#undef sv_pos_u2b +#define sv_pos_u2b pPerl->Perl_sv_pos_u2b #undef sv_pvn -#define sv_pvn pPerl->Perl_sv_pvn +#define sv_pvn pPerl->Perl_sv_pvn #undef sv_pvn_force -#define sv_pvn_force pPerl->Perl_sv_pvn_force +#define sv_pvn_force pPerl->Perl_sv_pvn_force +#undef sv_ref +#define sv_ref pPerl->Perl_sv_ref #undef sv_reftype -#define sv_reftype pPerl->Perl_sv_reftype +#define sv_reftype pPerl->Perl_sv_reftype #undef sv_replace -#define sv_replace pPerl->Perl_sv_replace +#define sv_replace pPerl->Perl_sv_replace #undef sv_report_used -#define sv_report_used pPerl->Perl_sv_report_used +#define sv_report_used pPerl->Perl_sv_report_used #undef sv_reset -#define sv_reset pPerl->Perl_sv_reset +#define sv_reset pPerl->Perl_sv_reset #undef sv_setiv -#define sv_setiv pPerl->Perl_sv_setiv +#define sv_setiv pPerl->Perl_sv_setiv +#undef sv_setiv_mg +#define sv_setiv_mg pPerl->Perl_sv_setiv_mg #undef sv_setnv -#define sv_setnv pPerl->Perl_sv_setnv +#define sv_setnv pPerl->Perl_sv_setnv +#undef sv_setnv_mg +#define sv_setnv_mg pPerl->Perl_sv_setnv_mg +#undef sv_setptrobj +#define sv_setptrobj pPerl->Perl_sv_setptrobj #undef sv_setpv -#define sv_setpv pPerl->Perl_sv_setpv +#define sv_setpv pPerl->Perl_sv_setpv +#undef sv_setpv_mg +#define sv_setpv_mg pPerl->Perl_sv_setpv_mg #undef sv_setpvf -#define sv_setpvf pPerl->Perl_sv_setpvf +#define sv_setpvf pPerl->Perl_sv_setpvf +#undef sv_setpvf_mg +#define sv_setpvf_mg pPerl->Perl_sv_setpvf_mg #undef sv_setpviv -#define sv_setpviv pPerl->Perl_sv_setpviv +#define sv_setpviv pPerl->Perl_sv_setpviv +#undef sv_setpviv_mg +#define sv_setpviv_mg pPerl->Perl_sv_setpviv_mg #undef sv_setpvn -#define sv_setpvn pPerl->Perl_sv_setpvn +#define sv_setpvn pPerl->Perl_sv_setpvn +#undef sv_setpvn_mg +#define sv_setpvn_mg pPerl->Perl_sv_setpvn_mg #undef sv_setref_iv -#define sv_setref_iv pPerl->Perl_sv_setref_iv +#define sv_setref_iv pPerl->Perl_sv_setref_iv #undef sv_setref_nv -#define sv_setref_nv pPerl->Perl_sv_setref_nv +#define sv_setref_nv pPerl->Perl_sv_setref_nv #undef sv_setref_pv -#define sv_setref_pv pPerl->Perl_sv_setref_pv +#define sv_setref_pv pPerl->Perl_sv_setref_pv #undef sv_setref_pvn -#define sv_setref_pvn pPerl->Perl_sv_setref_pvn +#define sv_setref_pvn pPerl->Perl_sv_setref_pvn #undef sv_setsv -#define sv_setsv pPerl->Perl_sv_setsv +#define sv_setsv pPerl->Perl_sv_setsv +#undef sv_setsv_mg +#define sv_setsv_mg pPerl->Perl_sv_setsv_mg #undef sv_setuv -#define sv_setuv pPerl->Perl_sv_setuv +#define sv_setuv pPerl->Perl_sv_setuv +#undef sv_setuv_mg +#define sv_setuv_mg pPerl->Perl_sv_setuv_mg #undef sv_taint -#define sv_taint pPerl->Perl_sv_taint +#define sv_taint pPerl->Perl_sv_taint #undef sv_tainted -#define sv_tainted pPerl->Perl_sv_tainted +#define sv_tainted pPerl->Perl_sv_tainted #undef sv_true -#define sv_true pPerl->Perl_sv_true +#define sv_true pPerl->Perl_sv_true +#undef sv_unglob +#define sv_unglob pPerl->Perl_sv_unglob #undef sv_unmagic -#define sv_unmagic pPerl->Perl_sv_unmagic +#define sv_unmagic pPerl->Perl_sv_unmagic #undef sv_unref -#define sv_unref pPerl->Perl_sv_unref +#define sv_unref pPerl->Perl_sv_unref #undef sv_untaint -#define sv_untaint pPerl->Perl_sv_untaint +#define sv_untaint pPerl->Perl_sv_untaint #undef sv_upgrade -#define sv_upgrade pPerl->Perl_sv_upgrade +#define sv_upgrade pPerl->Perl_sv_upgrade #undef sv_usepvn -#define sv_usepvn pPerl->Perl_sv_usepvn +#define sv_usepvn pPerl->Perl_sv_usepvn +#undef sv_usepvn_mg +#define sv_usepvn_mg pPerl->Perl_sv_usepvn_mg #undef sv_uv -#define sv_uv pPerl->Perl_sv_uv +#define sv_uv pPerl->Perl_sv_uv #undef sv_vcatpvfn -#define sv_vcatpvfn pPerl->Perl_sv_vcatpvfn +#define sv_vcatpvfn pPerl->Perl_sv_vcatpvfn #undef sv_vsetpvfn -#define sv_vsetpvfn pPerl->Perl_sv_vsetpvfn -#undef swash_init -#define swash_init pPerl->Perl_swash_init +#define sv_vsetpvfn pPerl->Perl_sv_vsetpvfn #undef swash_fetch -#define swash_fetch pPerl->Perl_swash_fetch +#define swash_fetch pPerl->Perl_swash_fetch +#undef swash_init +#define swash_init pPerl->Perl_swash_init #undef taint_env -#define taint_env pPerl->Perl_taint_env -#undef taint_not -#define taint_not pPerl->Perl_taint_not +#define taint_env pPerl->Perl_taint_env #undef taint_proper -#define taint_proper pPerl->Perl_taint_proper - +#define taint_proper pPerl->Perl_taint_proper #undef to_uni_lower -#define to_uni_lower pPerl->Perl_to_uni_lower +#define to_uni_lower pPerl->Perl_to_uni_lower #undef to_uni_lower_lc -#define to_uni_lower_lc pPerl->Perl_to_uni_lower_lc +#define to_uni_lower_lc pPerl->Perl_to_uni_lower_lc #undef to_uni_title -#define to_uni_title pPerl->Perl_to_uni_title +#define to_uni_title pPerl->Perl_to_uni_title #undef to_uni_title_lc -#define to_uni_title_lc pPerl->Perl_to_uni_title_lc +#define to_uni_title_lc pPerl->Perl_to_uni_title_lc #undef to_uni_upper -#define to_uni_upper pPerl->Perl_to_uni_upper +#define to_uni_upper pPerl->Perl_to_uni_upper #undef to_uni_upper_lc -#define to_uni_upper_lc pPerl->Perl_to_uni_upper_lc +#define to_uni_upper_lc pPerl->Perl_to_uni_upper_lc #undef to_utf8_lower -#define to_utf8_lower pPerl->Perl_to_utf8_lower +#define to_utf8_lower pPerl->Perl_to_utf8_lower #undef to_utf8_title -#define to_utf8_title pPerl->Perl_to_utf8_title +#define to_utf8_title pPerl->Perl_to_utf8_title #undef to_utf8_upper -#define to_utf8_upper pPerl->Perl_to_utf8_upper - +#define to_utf8_upper pPerl->Perl_to_utf8_upper +#undef tokeq +#define tokeq pPerl->Perl_tokeq +#undef too_few_arguments +#define too_few_arguments pPerl->Perl_too_few_arguments #undef too_few_arguments -#define too_few_arguments pPerl->Perl_too_few_arguments +#define too_few_arguments pPerl->Perl_too_few_arguments +#undef too_many_arguments +#define too_many_arguments pPerl->Perl_too_many_arguments #undef too_many_arguments -#define too_many_arguments pPerl->Perl_too_many_arguments +#define too_many_arguments pPerl->Perl_too_many_arguments +#undef uni +#define uni pPerl->Perl_uni #undef unlnk -#define unlnk pPerl->Perl_unlnk +#define unlnk pPerl->Perl_unlnk #undef unlock_condpair -#define unlock_condpair pPerl->Perl_unlock_condpair +#define unlock_condpair pPerl->Perl_unlock_condpair #undef unshare_hek -#define unshare_hek pPerl->Perl_unshare_hek +#define unshare_hek pPerl->Perl_unshare_hek #undef unsharepvn -#define unsharepvn pPerl->Perl_unsharepvn -#undef utilize -#define utilize pPerl->Perl_utilize - +#define unsharepvn pPerl->Perl_unsharepvn +#undef unwind_handler_stack +#define unwind_handler_stack pPerl->Perl_unwind_handler_stack +#undef usage +#define usage pPerl->Perl_usage #undef utf16_to_utf8 -#define utf16_to_utf8 pPerl->Perl_utf16_to_utf8 +#define utf16_to_utf8 pPerl->Perl_utf16_to_utf8 #undef utf16_to_utf8_reversed -#define utf16_to_utf8_reversed pPerl->Perl_utf16_to_utf8_reversed +#define utf16_to_utf8_reversed pPerl->Perl_utf16_to_utf8_reversed #undef utf8_distance -#define utf8_distance pPerl->Perl_utf8_distance +#define utf8_distance pPerl->Perl_utf8_distance #undef utf8_hop -#define utf8_hop pPerl->Perl_utf8_hop +#define utf8_hop pPerl->Perl_utf8_hop #undef utf8_to_uv -#define utf8_to_uv pPerl->Perl_utf8_to_uv +#define utf8_to_uv pPerl->Perl_utf8_to_uv +#undef utilize +#define utilize pPerl->Perl_utilize #undef uv_to_utf8 -#define uv_to_utf8 pPerl->Perl_uv_to_utf8 - +#define uv_to_utf8 pPerl->Perl_uv_to_utf8 +#undef validate_suid +#define validate_suid pPerl->Perl_validate_suid +#undef visit +#define visit pPerl->Perl_visit #undef vivify_defelem -#define vivify_defelem pPerl->Perl_vivify_defelem +#define vivify_defelem pPerl->Perl_vivify_defelem #undef vivify_ref -#define vivify_ref pPerl->Perl_vivify_ref +#define vivify_ref pPerl->Perl_vivify_ref #undef wait4pid -#define wait4pid pPerl->Perl_wait4pid +#define wait4pid pPerl->Perl_wait4pid #undef warn -#define warn pPerl->Perl_warn +#define warn pPerl->Perl_warn #undef warner -#define warner pPerl->Perl_warner +#define warner pPerl->Perl_warner #undef watch -#define watch pPerl->Perl_watch +#define watch pPerl->Perl_watch #undef whichsig -#define whichsig pPerl->Perl_whichsig +#define whichsig pPerl->Perl_whichsig +#undef win32_textfilter +#define win32_textfilter pPerl->Perl_win32_textfilter +#undef yydestruct +#define yydestruct pPerl->Perl_yydestruct +#undef yydestruct +#define yydestruct pPerl->Perl_yydestruct #undef yyerror -#define yyerror pPerl->Perl_yyerror +#define yyerror pPerl->Perl_yyerror #undef yylex -#define yylex pPerl->Perl_yylex +#define yylex pPerl->Perl_yylex #undef yyparse -#define yyparse pPerl->Perl_yyparse +#define yyparse pPerl->Perl_yyparse #undef yywarn -#define yywarn pPerl->Perl_yywarn - - -#undef PL_piMem -#define PL_piMem (pPerl->PL_piMem) -#undef PL_piENV -#define PL_piENV (pPerl->PL_piENV) -#undef PL_piStdIO -#define PL_piStdIO (pPerl->PL_piStdIO) -#undef PL_piLIO -#define PL_piLIO (pPerl->PL_piLIO) -#undef PL_piDir -#define PL_piDir (pPerl->PL_piDir) -#undef PL_piSock -#define PL_piSock (pPerl->PL_piSock) -#undef PL_piProc -#define PL_piProc (pPerl->PL_piProc) - -#ifndef NO_XSLOCKS -#undef closedir -#undef opendir -#undef stdin -#undef stdout -#undef stderr -#undef feof -#undef ferror -#undef fgetpos -#undef ioctl -#undef getlogin -#undef setjmp -#undef getc -#undef ungetc -#undef fileno - -#define mkdir PerlDir_mkdir -#define chdir PerlDir_chdir -#define rmdir PerlDir_rmdir -#define closedir PerlDir_close -#define opendir PerlDir_open -#define readdir PerlDir_read -#define rewinddir PerlDir_rewind -#define seekdir PerlDir_seek -#define telldir PerlDir_tell -#define putenv PerlEnv_putenv -#define getenv PerlEnv_getenv -#define stdin PerlIO_stdin() -#define stdout PerlIO_stdout() -#define stderr PerlIO_stderr() -#define fopen PerlIO_open -#define fclose PerlIO_close -#define feof PerlIO_eof -#define ferror PerlIO_error -#define fclearerr PerlIO_clearerr -#define getc PerlIO_getc -#define fputc(c, f) PerlIO_putc(f,c) -#define fputs(s, f) PerlIO_puts(f,s) -#define fflush PerlIO_flush -#define ungetc(c, f) PerlIO_ungetc((f),(c)) -#define fileno PerlIO_fileno -#define fdopen PerlIO_fdopen -#define freopen PerlIO_reopen -#define fread(b,s,c,f) PerlIO_read((f),(b),(s*c)) -#define fwrite(b,s,c,f) PerlIO_write((f),(b),(s*c)) -#define setbuf PerlIO_setbuf -#define setvbuf PerlIO_setvbuf -#define setlinebuf PerlIO_setlinebuf -#define stdoutf PerlIO_stdoutf -#define vfprintf PerlIO_vprintf -#define ftell PerlIO_tell -#define fseek PerlIO_seek -#define fgetpos PerlIO_getpos -#define fsetpos PerlIO_setpos -#define frewind PerlIO_rewind -#define tmpfile PerlIO_tmpfile -#define access PerlLIO_access -#define chmod PerlLIO_chmod -#define chsize PerlLIO_chsize -#define close PerlLIO_close -#define dup PerlLIO_dup -#define dup2 PerlLIO_dup2 -#define flock PerlLIO_flock -#define fstat PerlLIO_fstat -#define ioctl PerlLIO_ioctl -#define isatty PerlLIO_isatty -#define lseek PerlLIO_lseek -#define lstat PerlLIO_lstat -#define mktemp PerlLIO_mktemp -#define open PerlLIO_open -#define read PerlLIO_read -#define rename PerlLIO_rename -#define setmode PerlLIO_setmode -#define stat PerlLIO_stat -#define tmpnam PerlLIO_tmpnam -#define umask PerlLIO_umask -#define unlink PerlLIO_unlink -#define utime PerlLIO_utime -#define write PerlLIO_write -#define malloc PerlMem_malloc -#define realloc PerlMem_realloc -#define free PerlMem_free -#define abort PerlProc_abort -#define exit PerlProc_exit -#define _exit PerlProc__exit -#define execl PerlProc_execl -#define execv PerlProc_execv -#define execvp PerlProc_execvp -#define getuid PerlProc_getuid -#define geteuid PerlProc_geteuid -#define getgid PerlProc_getgid -#define getegid PerlProc_getegid -#define getlogin PerlProc_getlogin -#define kill PerlProc_kill -#define killpg PerlProc_killpg -#define pause PerlProc_pause -#define popen PerlProc_popen -#define pclose PerlProc_pclose -#define pipe PerlProc_pipe -#define setuid PerlProc_setuid -#define setgid PerlProc_setgid -#define sleep PerlProc_sleep -#define times PerlProc_times -#define wait PerlProc_wait -#define setjmp PerlProc_setjmp -#define longjmp PerlProc_longjmp -#define signal PerlProc_signal -#define htonl PerlSock_htonl -#define htons PerlSock_htons -#define ntohl PerlSock_ntohl -#define ntohs PerlSock_ntohs -#define accept PerlSock_accept -#define bind PerlSock_bind -#define connect PerlSock_connect -#define endhostent PerlSock_endhostent -#define endnetent PerlSock_endnetent -#define endprotoent PerlSock_endprotoent -#define endservent PerlSock_endservent -#define gethostbyaddr PerlSock_gethostbyaddr -#define gethostbyname PerlSock_gethostbyname -#define gethostent PerlSock_gethostent -#define gethostname PerlSock_gethostname -#define getnetbyaddr PerlSock_getnetbyaddr -#define getnetbyname PerlSock_getnetbyname -#define getnetent PerlSock_getnetent -#define getpeername PerlSock_getpeername -#define getprotobyname PerlSock_getprotobyname -#define getprotobynumber PerlSock_getprotobynumber -#define getprotoent PerlSock_getprotoent -#define getservbyname PerlSock_getservbyname -#define getservbyport PerlSock_getservbyport -#define getservent PerlSock_getservent -#define getsockname PerlSock_getsockname -#define getsockopt PerlSock_getsockopt -#define inet_addr PerlSock_inet_addr -#define inet_ntoa PerlSock_inet_ntoa -#define listen PerlSock_listen -#define recvfrom PerlSock_recvfrom -#define select PerlSock_select -#define send PerlSock_send -#define sendto PerlSock_sendto -#define sethostent PerlSock_sethostent -#define setnetent PerlSock_setnetent -#define setprotoent PerlSock_setprotoent -#define setservent PerlSock_setservent -#define setsockopt PerlSock_setsockopt -#define shutdown PerlSock_shutdown -#define socket PerlSock_socket -#define socketpair PerlSock_socketpair -#endif /* NO_XSLOCKS */ - -#undef PERL_OBJECT_THIS -#define PERL_OBJECT_THIS pPerl -#undef PERL_OBJECT_THIS_ -#define PERL_OBJECT_THIS_ pPerl, - -#undef SAVEDESTRUCTOR -#define SAVEDESTRUCTOR(f,p) \ - pPerl->Perl_save_destructor((FUNC_NAME_TO_PTR(f)),(p)) - -#ifdef WIN32 - -#ifndef WIN32IO_IS_STDIO -#undef errno -#define errno ErrorNo() -#endif - -#undef ErrorNo -#define ErrorNo pPerl->ErrorNo -#undef NtCrypt -#define NtCrypt pPerl->NtCrypt -#undef NtGetLib -#define NtGetLib pPerl->NtGetLib -#undef NtGetArchLib -#define NtGetArchLib pPerl->NtGetArchLib -#undef NtGetSiteLib -#define NtGetSiteLib pPerl->NtGetSiteLib -#undef NtGetBin -#define NtGetBin pPerl->NtGetBin -#undef NtGetDebugScriptStr -#define NtGetDebugScriptStr pPerl->NtGetDebugScriptStr -#endif /* WIN32 */ - -#endif /* __objXSUB_h__ */ +#define yywarn pPerl->Perl_yywarn +#endif /* __objXSUB_h__ */ @@ -2597,6 +2597,7 @@ package(OP *o) sv_setpv(PL_curstname,"<none>"); PL_curstash = Nullhv; } + PL_hints |= HINT_BLOCK_SCOPE; PL_copline = NOLINE; PL_expect = XSTATE; } @@ -1253,8 +1253,10 @@ die_where(char *message) SvGROW(err, SvCUR(err)+sizeof(prefix)+klen); sv_catpvn(err, prefix, sizeof(prefix)-1); sv_catpvn(err, message, klen); - if (ckWARN(WARN_UNSAFE)) - warner(WARN_UNSAFE, SvPVX(err)); + if (ckWARN(WARN_UNSAFE)) { + STRLEN start = SvCUR(err)-klen-sizeof(prefix)+1; + warner(WARN_UNSAFE, SvPVX(err)+start); + } } sv_inc(*svp); } @@ -1422,7 +1422,17 @@ PP(pp_sysread) Zero(buffer+bufsize, offset-bufsize, char); } if (PL_op->op_type == OP_SYSREAD) { - length = PerlLIO_read(PerlIO_fileno(IoIFP(io)), buffer+offset, length); +#ifdef PERL_SOCK_SYSREAD_IS_RECV + if (IoTYPE(io) == 's') { + length = PerlSock_recv(PerlIO_fileno(IoIFP(io)), + buffer+offset, length, 0); + } + else +#endif + { + length = PerlLIO_read(PerlIO_fileno(IoIFP(io)), + buffer+offset, length); + } } else #ifdef HAS_SOCKET__bad_code_maybe @@ -1534,7 +1544,17 @@ PP(pp_send) offset = 0; if (length > blen - offset) length = blen - offset; - length = PerlLIO_write(PerlIO_fileno(IoIFP(io)), buffer+offset, length); +#ifdef PERL_SOCK_SYSWRITE_IS_SEND + if (IoTYPE(io) == 's') { + length = PerlSock_send(PerlIO_fileno(IoIFP(io)), + buffer+offset, length, 0); + } + else +#endif + { + length = PerlLIO_write(PerlIO_fileno(IoIFP(io)), + buffer+offset, length); + } } #ifdef HAS_SOCKET else if (SP > MARK) { @@ -361,7 +361,7 @@ VIRTUAL OP* newNULLLIST _((void)); VIRTUAL OP* newOP _((I32 optype, I32 flags)); VIRTUAL void newPROG _((OP* o)); VIRTUAL OP* newRANGE _((I32 flags, OP* left, OP* right)); -VIRTUAL OP* newSLICEOP _((I32 flags, OP* subscript, OP* list)); +VIRTUAL OP* newSLICEOP _((I32 flags, OP* subscript, OP* listop)); VIRTUAL OP* newSTATEOP _((I32 flags, char* label, OP* o)); VIRTUAL CV* newSUB _((I32 floor, OP* o, OP* proto, OP* block)); VIRTUAL CV* newXS _((char* name, void (*subaddr)(CV* cv _CPERLproto), char* filename)); diff --git a/t/comp/package.t b/t/comp/package.t index d7d19ae882..4982256db7 100755 --- a/t/comp/package.t +++ b/t/comp/package.t @@ -1,6 +1,6 @@ #!./perl -print "1..7\n"; +print "1..8\n"; $blurfl = 123; $foo = 3; @@ -37,3 +37,17 @@ print $blurfl == 5 ? "ok 4\n" : "not ok 4\n"; eval 'print $blurfl == 5 ? "ok 5\n" : "not ok 5\n";'; eval 'package main; print $blurfl == 123 ? "ok 6\n" : "not ok 6\n";'; print $blurfl == 5 ? "ok 7\n" : "not ok 7\n"; + +package main; + +sub c { caller(0) } + +sub foo { + my $s = shift; + if ($s) { + package PQR; + main::c(); + } +} + +print((foo(1))[0] eq 'PQR' ? "ok 8\n" : "not ok 8\n"); diff --git a/t/lib/dumper.t b/t/lib/dumper.t index e3d339afd4..063df83457 100755 --- a/t/lib/dumper.t +++ b/t/lib/dumper.t @@ -39,7 +39,7 @@ if (defined &Data::Dumper::Dumpxs) { } else { print "### XS extensions not loaded, will NOT run XS tests\n"; - $TMAX = 86; $XS = 0; + $TMAX = 81; $XS = 0; } print "1..$TMAX\n"; diff --git a/t/pragma/warn/pp_ctl b/t/pragma/warn/pp_ctl index 70c67fa598..5a1c2338ed 100644 --- a/t/pragma/warn/pp_ctl +++ b/t/pragma/warn/pp_ctl @@ -153,5 +153,7 @@ use warning 'unsafe' ; package Foo; DESTROY { die "@{$_[0]} foo bar" } { bless ['A'], 'Foo' for 1..10 } +{ bless ['B'], 'Foo' for 1..10 } EXPECT (in cleanup) A foo bar at - line 4. + (in cleanup) B foo bar at - line 4. diff --git a/universal.c b/universal.c index 9bf3efcb6e..d0ef90dcdb 100644 --- a/universal.c +++ b/universal.c @@ -108,7 +108,6 @@ sv_derived_from(SV *sv, char *name) #include "XSUB.h" -static XS(XS_UNIVERSAL_isa) { dXSARGS; @@ -125,7 +124,6 @@ XS(XS_UNIVERSAL_isa) XSRETURN(1); } -static XS(XS_UNIVERSAL_can) { dXSARGS; @@ -160,7 +158,6 @@ XS(XS_UNIVERSAL_can) XSRETURN(1); } -static XS(XS_UNIVERSAL_VERSION) { dXSARGS; @@ -1187,39 +1187,43 @@ savepvn(char *sv, register I32 len) STATIC SV * mess_alloc(void) { + dTHR; SV *sv; XPVMG *any; + if (!PL_dirty) + return sv_2mortal(newSVpvn("",0)); + + if (PL_mess_sv) + return PL_mess_sv; + /* Create as PVMG now, to avoid any upgrading later */ New(905, sv, 1, SV); Newz(905, any, 1, XPVMG); SvFLAGS(sv) = SVt_PVMG; SvANY(sv) = (void*)any; SvREFCNT(sv) = 1 << 30; /* practically infinite */ + PL_mess_sv = sv; return sv; } char * form(const char* pat, ...) { + SV *sv = mess_alloc(); va_list args; va_start(args, pat); - if (!PL_mess_sv) - PL_mess_sv = mess_alloc(); - sv_vsetpvfn(PL_mess_sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*)); + sv_vsetpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*)); va_end(args); - return SvPVX(PL_mess_sv); + return SvPVX(sv); } char * mess(const char *pat, va_list *args) { - SV *sv; + SV *sv = mess_alloc(); static char dgd[] = " during global destruction.\n"; - if (!PL_mess_sv) - PL_mess_sv = mess_alloc(); - sv = PL_mess_sv; sv_vsetpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*)); if (!SvCUR(sv) || *(SvEND(sv) - 1) != '\n') { dTHR; diff --git a/win32/GenCAPI.pl b/win32/GenCAPI.pl index 5c77d70112..5972c2a279 100644 --- a/win32/GenCAPI.pl +++ b/win32/GenCAPI.pl @@ -3,34 +3,34 @@ # takes one argument, the path to lib/CORE directory. # creates 2 files: "perlCAPI.cpp" and "perlCAPI.h". -my $hdrfile = "$ARGV[0]\\perlCAPI.h"; -my $infile = '..\\proto.h'; -my $embedfile = '..\\embed.h'; +my $hdrfile = "$ARGV[0]/perlCAPI.h"; +my $infile = '../proto.h'; +my @embedsyms = ('../global.sym', '../pp.sym'); my $separateObj = 0; my %skip_list; my %embed; -sub readembed(\%$) { - my ($syms, $file) = @_; +sub readsyms(\%@) { + my ($syms, @files) = @_; my ($line, @words); %$syms = (); - local (*FILE, $_); - open(FILE, "< $file") - or die "$0: Can't open $file: $!\n"; - while ($line = <FILE>) { - chop($line); - if ($line =~ /^#define\s+\w+/) { - $line =~ s/^#define\s+//; - @words = split ' ', $line; -# print "$words[0]\t$words[1]\n"; - $$syms{$words[0]} = $words[1]; + foreach my $file (@files) { + local (*FILE, $_); + open(FILE, "< $file") + or die "$0: Can't open $file: $!\n"; + while (<FILE>) { + s/[ \t]*#.*$//; # delete comments + if (/^\s*(\S+)\s*$/) { + my $sym = $1; + $$syms{$sym} = "Perl_$sym"; + } } + close(FILE); } - close(FILE); } -readembed %embed, $embedfile; +readsyms %embed, @embedsyms; sub skip_these { my $list = shift; diff --git a/win32/win32.h b/win32/win32.h index b52ef4eb80..fef3cbc484 100644 --- a/win32/win32.h +++ b/win32/win32.h @@ -104,6 +104,11 @@ struct tms { * real filehandles. XXX Should always be defined (the other version is untested) */ #define USE_SOCKETS_AS_HANDLES +/* read() and write() aren't transparent for socket handles */ +#define PERL_SOCK_SYSREAD_IS_RECV +#define PERL_SOCK_SYSWRITE_IS_SEND + + /* if USE_WIN32_RTL_ENV is not defined, Perl uses direct Win32 calls * to read the environment, bypassing the runtime's (usually broken) * facilities for accessing the same. See note in util.c/my_setenv(). */ diff --git a/win32/win32sck.c b/win32/win32sck.c index 52dc128f9a..2713605840 100644 --- a/win32/win32sck.c +++ b/win32/win32sck.c @@ -287,8 +287,15 @@ int win32_recvfrom(SOCKET s, char *buf, int len, int flags, struct sockaddr *from, int *fromlen) { int r; + int frombufsize = *fromlen; SOCKET_TEST_ERROR(r = recvfrom(TO_SOCKET(s), buf, len, flags, from, fromlen)); + /* Winsock's recvfrom() only returns a valid 'from' when the socket + * is connectionless. Perl expects a valid 'from' for all types + * of sockets, so go the extra mile. + */ + if (r != SOCKET_ERROR && frombufsize == *fromlen) + (void)win32_getpeername(s, from, fromlen); return r; } |