vendor/perl5/5.006

21 files changed, 0 insertions, 4337 deletions

diff --git a/contrib/perl5/Todo-5.005 b/contrib/perl5/Todo-5.005
deleted file mode 100644
index 7f2dbc957c86..000000000000
--- a/contrib/perl5/Todo-5.005
+++ /dev/null
@@ -1,61 +0,0 @@
-Multi-threading
-    $AUTOLOAD. Hmm.
-    consistent semantics for exit/die in threads
-    SvREFCNT_dec(curstack) in threadstart() in Thread.xs
-    better support for externally created threads
-    Thread::Pool
-    spot-check globals like statcache and global GVs for thread-safety
-
-Compiler
-    auto-produce executable
-    typed lexicals should affect B::CC::load_pad
-    workarounds to help Win32
-    END blocks need saving in compiled output
-    _AUTOLOAD prodding
-    fix comppadlist (names in comppad_name can have fake SvCUR
-	from where newASSIGNOP steals the field)
-
-Namespace cleanup
-    CPP-space:	  restrict what we export from headers
-                  stop malloc()/free() pollution unless asked
-    header-space: move into CORE/perl/
-    API-space:    begin list of things that constitute public api
-
-MULTIPLICITY support
-    complete work on safe recursive interpreters, C<Perl->new()>
-    revisit extra implicit arg that provides curthread/curinterp context
-
-Reliable Signals
-    alternate runops() for signal despatch
-    figure out how to die() in delayed sighandler
-    add tests for Thread::Signal
-
-Win32 stuff
-    get PERL_OBJECT building under gcc
-    get PERL_OBJECT building on non-win32
-    automate generation of 'protected' prototypes for CPerlObj 
-    rename new headers to be consistent with the rest
-    sort out the spawnvp() mess
-    work out DLL versioning
-    style-check
-
-Miscellaneous
-    rename and alter ISA.pm
-    magic_setisa should be made to update %FIELDS [???]
-    add new modules (Archive::Tar, Compress::Zlib, CPAN::FTP?)
-    fix pod2html to generate relative URLs
-    automate testing with large parts of CPAN
-
-Ongoing
-    keep filenames 8.3 friendly, where feasible
-    upgrade to newer versions of all independently maintained modules
-    comprehensive perldelta.pod
-
-Documentation
-    describe new age patterns
-    update perl{guts,call,embed,xs} with additions, changes to API
-    document Win32 choices
-    spot-check all new modules for completeness
-    better docs for pack()/unpack()
-    reorg tutorials vs. reference sections
-
diff --git a/contrib/perl5/XSlock.h b/contrib/perl5/XSlock.h
deleted file mode 100644
index 0b2c8299b917..000000000000
--- a/contrib/perl5/XSlock.h
+++ /dev/null
@@ -1,38 +0,0 @@
-#ifndef __XSlock_h__
-#define __XSlock_h__
-
-class XSLockManager
-{
-public:
-	XSLockManager() { InitializeCriticalSection(&cs); };
-	~XSLockManager() { DeleteCriticalSection(&cs); };
-	void Enter(void) { EnterCriticalSection(&cs); };
-	void Leave(void) { LeaveCriticalSection(&cs); };
-protected:
-	CRITICAL_SECTION cs;
-};
-
-XSLockManager g_XSLock;
-CPerlObj* pPerl;
-
-class XSLock
-{
-public:
-	XSLock(CPerlObj *p) {
-	    g_XSLock.Enter();
-	    ::pPerl = p;
-	};
-	~XSLock() { g_XSLock.Leave(); };
-};
-
-/* PERL_CAPI does its own locking in xs_handler() */
-#if defined(PERL_OBJECT) && !defined(PERL_CAPI)
-#undef dXSARGS
-#define dXSARGS	\
-	XSLock localLock(pPerl);			\
-	dSP; dMARK;					\
-	I32 ax = mark - PL_stack_base + 1;		\
-	I32 items = sp - mark
-#endif	/* PERL_OBJECT && !PERL_CAPI */
-
-#endif
diff --git a/contrib/perl5/bytecode.h b/contrib/perl5/bytecode.h
deleted file mode 100644
index 7f0ab13a490f..000000000000
--- a/contrib/perl5/bytecode.h
+++ /dev/null
@@ -1,161 +0,0 @@
-typedef char *pvcontents;
-typedef char *strconst;
-typedef U32 PV;
-typedef char *op_tr_array;
-typedef int comment_t;
-typedef SV *svindex;
-typedef OP *opindex;
-typedef IV IV64;
-
-#ifdef INDIRECT_BGET_MACROS
-#define BGET_FREAD(argp, len, nelem)	\
-	 bs.fread((char*)(argp),(len),(nelem),bs.data)
-#define BGET_FGETC() bs.fgetc(bs.data)
-#else
-#define BGET_FREAD(argp, len, nelem) PerlIO_read(fp, (argp), (len)*(nelem))
-#define BGET_FGETC() PerlIO_getc(fp)
-#endif /* INDIRECT_BGET_MACROS */
-
-#define BGET_U32(arg)	\
-	BGET_FREAD(&arg, sizeof(U32), 1); arg = PerlSock_ntohl((U32)arg)
-#define BGET_I32(arg)	\
-	BGET_FREAD(&arg, sizeof(I32), 1); arg = (I32)PerlSock_ntohl((U32)arg)
-#define BGET_U16(arg)	\
-	BGET_FREAD(&arg, sizeof(U16), 1); arg = PerlSock_ntohs((U16)arg)
-#define BGET_U8(arg)	arg = BGET_FGETC()
-
-#if INDIRECT_BGET_MACROS
-#define BGET_PV(arg)	STMT_START {	\
-	BGET_U32(arg);			\
-	if (arg)			\
-	    bs.freadpv(arg, bs.data);	\
-	else {				\
-	    PL_bytecode_pv.xpv_pv = 0;		\
-	    PL_bytecode_pv.xpv_len = 0;		\
-	    PL_bytecode_pv.xpv_cur = 0;		\
-	}				\
-    } STMT_END
-#else
-#define BGET_PV(arg)	STMT_START {		\
-	BGET_U32(arg);				\
-	if (arg) {				\
-	    New(666, PL_bytecode_pv.xpv_pv, arg, char);	\
-	    PerlIO_read(fp, PL_bytecode_pv.xpv_pv, arg);	\
-	    PL_bytecode_pv.xpv_len = arg;			\
-	    PL_bytecode_pv.xpv_cur = arg - 1;		\
-	} else {				\
-	    PL_bytecode_pv.xpv_pv = 0;			\
-	    PL_bytecode_pv.xpv_len = 0;			\
-	    PL_bytecode_pv.xpv_cur = 0;			\
-	}					\
-    } STMT_END
-#endif /* INDIRECT_BGET_MACROS */
-
-#define BGET_comment_t(arg) \
-	do { arg = BGET_FGETC(); } while (arg != '\n' && arg != EOF)
-
-/*
- * In the following, sizeof(IV)*4 is just a way of encoding 32 on 64-bit-IV
- * machines such that 32-bit machine compilers don't whine about the shift
- * count being too high even though the code is never reached there.
- */
-#define BGET_IV64(arg) STMT_START {			\
-	U32 hi, lo;					\
-	BGET_U32(hi);					\
-	BGET_U32(lo);					\
-	if (sizeof(IV) == 8)				\
-	    arg = ((IV)hi << (sizeof(IV)*4) | lo);	\
-	else if (((I32)hi == -1 && (I32)lo < 0)		\
-		 || ((I32)hi == 0 && (I32)lo >= 0)) {	\
-	    arg = (I32)lo;				\
-	}						\
-	else {						\
-	    PL_bytecode_iv_overflows++;				\
-	    arg = 0;					\
-	}						\
-    } STMT_END
-
-#define BGET_op_tr_array(arg) do {	\
-	unsigned short *ary;		\
-	int i;				\
-	New(666, ary, 256, unsigned short); \
-	BGET_FREAD(ary, 256, 2);	\
-	for (i = 0; i < 256; i++)	\
-	    ary[i] = PerlSock_ntohs(ary[i]);	\
-	arg = (char *) ary;		\
-    } while (0)
-
-#define BGET_pvcontents(arg)	arg = PL_bytecode_pv.xpv_pv
-#define BGET_strconst(arg) STMT_START {	\
-	for (arg = PL_tokenbuf; (*arg = BGET_FGETC()); arg++) /* nothing */; \
-	arg = PL_tokenbuf;			\
-    } STMT_END
-
-#define BGET_double(arg) STMT_START {	\
-	char *str;			\
-	BGET_strconst(str);		\
-	arg = atof(str);		\
-    } STMT_END
-
-#define BGET_objindex(arg, type) STMT_START {	\
-	U32 ix;					\
-	BGET_U32(ix);				\
-	arg = (type)PL_bytecode_obj_list[ix];		\
-    } STMT_END
-#define BGET_svindex(arg) BGET_objindex(arg, svindex)
-#define BGET_opindex(arg) BGET_objindex(arg, opindex)
-
-#define BSET_ldspecsv(sv, arg) sv = PL_specialsv_list[arg]
-				    
-#define BSET_sv_refcnt_add(svrefcnt, arg)	svrefcnt += arg
-#define BSET_gp_refcnt_add(gprefcnt, arg)	gprefcnt += arg
-#define BSET_gp_share(sv, arg) STMT_START {	\
-	gp_free((GV*)sv);			\
-	GvGP(sv) = GvGP(arg);			\
-    } STMT_END
-
-#define BSET_gv_fetchpv(sv, arg)	sv = (SV*)gv_fetchpv(arg, TRUE, SVt_PV)
-#define BSET_gv_stashpv(sv, arg)	sv = (SV*)gv_stashpv(arg, TRUE)
-#define BSET_sv_magic(sv, arg)		sv_magic(sv, Nullsv, arg, 0, 0)
-#define BSET_mg_pv(mg, arg)	mg->mg_ptr = arg; mg->mg_len = PL_bytecode_pv.xpv_cur
-#define BSET_sv_upgrade(sv, arg)	(void)SvUPGRADE(sv, arg)
-#define BSET_xpv(sv)	do {	\
-	SvPV_set(sv, PL_bytecode_pv.xpv_pv);	\
-	SvCUR_set(sv, PL_bytecode_pv.xpv_cur);	\
-	SvLEN_set(sv, PL_bytecode_pv.xpv_len);	\
-    } while (0)
-#define BSET_av_extend(sv, arg)	av_extend((AV*)sv, arg)
-
-#define BSET_av_push(sv, arg)	av_push((AV*)sv, arg)
-#define BSET_hv_store(sv, arg)	\
-	hv_store((HV*)sv, PL_bytecode_pv.xpv_pv, PL_bytecode_pv.xpv_cur, arg, 0)
-#define BSET_pv_free(pv)	Safefree(pv.xpv_pv)
-#define BSET_pregcomp(o, arg) \
-	((PMOP*)o)->op_pmregexp = arg ? \
-		CALLREGCOMP(arg, arg + PL_bytecode_pv.xpv_cur, ((PMOP*)o)) : 0
-#define BSET_newsv(sv, arg)	sv = NEWSV(666,0); SvUPGRADE(sv, arg)
-#define BSET_newop(o, arg)	o = (OP*)safemalloc(optype_size[arg])
-#define BSET_newopn(o, arg) STMT_START {	\
-	OP *oldop = o;				\
-	BSET_newop(o, arg);			\
-	oldop->op_next = o;			\
-    } STMT_END
-
-#define BSET_ret(foo) return
-
-/*
- * Kludge special-case workaround for OP_MAPSTART
- * which needs the ppaddr for OP_GREPSTART. Blech.
- */
-#define BSET_op_type(o, arg) STMT_START {	\
-	o->op_type = arg;			\
-	if (arg == OP_MAPSTART)			\
-	    arg = OP_GREPSTART;			\
-	o->op_ppaddr = ppaddr[arg];		\
-    } STMT_END
-#define BSET_op_ppaddr(o, arg) croak("op_ppaddr not yet implemented")
-#define BSET_curpad(pad, arg) pad = AvARRAY(arg)
-
-#define BSET_OBJ_STORE(obj, ix)		\
-	(I32)ix > PL_bytecode_obj_list_fill ?	\
-	bset_obj_store(obj, (I32)ix) : (PL_bytecode_obj_list[ix] = obj)
diff --git a/contrib/perl5/byterun.c b/contrib/perl5/byterun.c
deleted file mode 100644
index 34beaf4f4b96..000000000000
--- a/contrib/perl5/byterun.c
+++ /dev/null
@@ -1,867 +0,0 @@
-/*
- *      Copyright (c) 1996-1998 Malcolm Beattie
- *
- *      You may distribute under the terms of either the GNU General Public
- *      License or the Artistic License, as specified in the README file.
- *
- */
-/*
- * This file is autogenerated from bytecode.pl. Changes made here will be lost.
- */
-
-#include "EXTERN.h"
-#include "perl.h"
-
-void *
-bset_obj_store(void *obj, I32 ix)
-{
-    if (ix > PL_bytecode_obj_list_fill) {
-	if (PL_bytecode_obj_list_fill == -1)
-	    New(666, PL_bytecode_obj_list, ix + 1, void*);
-	else
-	    Renew(PL_bytecode_obj_list, ix + 1, void*);
-	PL_bytecode_obj_list_fill = ix;
-    }
-    PL_bytecode_obj_list[ix] = obj;
-    return obj;
-}
-
-#ifdef INDIRECT_BGET_MACROS
-void byterun(struct bytestream bs)
-#else
-void byterun(PerlIO *fp)
-#endif /* INDIRECT_BGET_MACROS */
-{
-    dTHR;
-    int insn;
-    while ((insn = BGET_FGETC()) != EOF) {
-	switch (insn) {
-	  case INSN_COMMENT:		/* 35 */
-	    {
-		comment_t arg;
-		BGET_comment_t(arg);
-		arg = arg;
-		break;
-	    }
-	  case INSN_NOP:		/* 10 */
-	    {
-		break;
-	    }
-	  case INSN_RET:		/* 0 */
-	    {
-		BSET_ret(none);
-		break;
-	    }
-	  case INSN_LDSV:		/* 1 */
-	    {
-		svindex arg;
-		BGET_svindex(arg);
-		PL_bytecode_sv = arg;
-		break;
-	    }
-	  case INSN_LDOP:		/* 2 */
-	    {
-		opindex arg;
-		BGET_opindex(arg);
-		PL_op = arg;
-		break;
-	    }
-	  case INSN_STSV:		/* 3 */
-	    {
-		U32 arg;
-		BGET_U32(arg);
-		BSET_OBJ_STORE(PL_bytecode_sv, arg);
-		break;
-	    }
-	  case INSN_STOP:		/* 4 */
-	    {
-		U32 arg;
-		BGET_U32(arg);
-		BSET_OBJ_STORE(PL_op, arg);
-		break;
-	    }
-	  case INSN_LDSPECSV:		/* 5 */
-	    {
-		U8 arg;
-		BGET_U8(arg);
-		BSET_ldspecsv(PL_bytecode_sv, arg);
-		break;
-	    }
-	  case INSN_NEWSV:		/* 6 */
-	    {
-		U8 arg;
-		BGET_U8(arg);
-		BSET_newsv(PL_bytecode_sv, arg);
-		break;
-	    }
-	  case INSN_NEWOP:		/* 7 */
-	    {
-		U8 arg;
-		BGET_U8(arg);
-		BSET_newop(PL_op, arg);
-		break;
-	    }
-	  case INSN_NEWOPN:		/* 8 */
-	    {
-		U8 arg;
-		BGET_U8(arg);
-		BSET_newopn(PL_op, arg);
-		break;
-	    }
-	  case INSN_NEWPV:		/* 9 */
-	    {
-		PV arg;
-		BGET_PV(arg);
-		break;
-	    }
-	  case INSN_PV_CUR:		/* 11 */
-	    {
-		STRLEN arg;
-		BGET_U32(arg);
-		PL_bytecode_pv.xpv_cur = arg;
-		break;
-	    }
-	  case INSN_PV_FREE:		/* 12 */
-	    {
-		BSET_pv_free(PL_bytecode_pv);
-		break;
-	    }
-	  case INSN_SV_UPGRADE:		/* 13 */
-	    {
-		char arg;
-		BGET_U8(arg);
-		BSET_sv_upgrade(PL_bytecode_sv, arg);
-		break;
-	    }
-	  case INSN_SV_REFCNT:		/* 14 */
-	    {
-		U32 arg;
-		BGET_U32(arg);
-		SvREFCNT(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_SV_REFCNT_ADD:		/* 15 */
-	    {
-		I32 arg;
-		BGET_I32(arg);
-		BSET_sv_refcnt_add(SvREFCNT(PL_bytecode_sv), arg);
-		break;
-	    }
-	  case INSN_SV_FLAGS:		/* 16 */
-	    {
-		U32 arg;
-		BGET_U32(arg);
-		SvFLAGS(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XRV:		/* 17 */
-	    {
-		svindex arg;
-		BGET_svindex(arg);
-		SvRV(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XPV:		/* 18 */
-	    {
-		BSET_xpv(PL_bytecode_sv);
-		break;
-	    }
-	  case INSN_XIV32:		/* 19 */
-	    {
-		I32 arg;
-		BGET_I32(arg);
-		SvIVX(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XIV64:		/* 20 */
-	    {
-		IV64 arg;
-		BGET_IV64(arg);
-		SvIVX(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XNV:		/* 21 */
-	    {
-		double arg;
-		BGET_double(arg);
-		SvNVX(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XLV_TARGOFF:		/* 22 */
-	    {
-		STRLEN arg;
-		BGET_U32(arg);
-		LvTARGOFF(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XLV_TARGLEN:		/* 23 */
-	    {
-		STRLEN arg;
-		BGET_U32(arg);
-		LvTARGLEN(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XLV_TARG:		/* 24 */
-	    {
-		svindex arg;
-		BGET_svindex(arg);
-		LvTARG(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XLV_TYPE:		/* 25 */
-	    {
-		char arg;
-		BGET_U8(arg);
-		LvTYPE(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XBM_USEFUL:		/* 26 */
-	    {
-		I32 arg;
-		BGET_I32(arg);
-		BmUSEFUL(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XBM_PREVIOUS:		/* 27 */
-	    {
-		U16 arg;
-		BGET_U16(arg);
-		BmPREVIOUS(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XBM_RARE:		/* 28 */
-	    {
-		U8 arg;
-		BGET_U8(arg);
-		BmRARE(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XFM_LINES:		/* 29 */
-	    {
-		I32 arg;
-		BGET_I32(arg);
-		FmLINES(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XIO_LINES:		/* 30 */
-	    {
-		long arg;
-		BGET_I32(arg);
-		IoLINES(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XIO_PAGE:		/* 31 */
-	    {
-		long arg;
-		BGET_I32(arg);
-		IoPAGE(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XIO_PAGE_LEN:		/* 32 */
-	    {
-		long arg;
-		BGET_I32(arg);
-		IoPAGE_LEN(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XIO_LINES_LEFT:		/* 33 */
-	    {
-		long arg;
-		BGET_I32(arg);
-		IoLINES_LEFT(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XIO_TOP_NAME:		/* 34 */
-	    {
-		pvcontents arg;
-		BGET_pvcontents(arg);
-		IoTOP_NAME(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XIO_TOP_GV:		/* 36 */
-	    {
-		svindex arg;
-		BGET_svindex(arg);
-		*(SV**)&IoTOP_GV(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XIO_FMT_NAME:		/* 37 */
-	    {
-		pvcontents arg;
-		BGET_pvcontents(arg);
-		IoFMT_NAME(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XIO_FMT_GV:		/* 38 */
-	    {
-		svindex arg;
-		BGET_svindex(arg);
-		*(SV**)&IoFMT_GV(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XIO_BOTTOM_NAME:		/* 39 */
-	    {
-		pvcontents arg;
-		BGET_pvcontents(arg);
-		IoBOTTOM_NAME(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XIO_BOTTOM_GV:		/* 40 */
-	    {
-		svindex arg;
-		BGET_svindex(arg);
-		*(SV**)&IoBOTTOM_GV(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XIO_SUBPROCESS:		/* 41 */
-	    {
-		short arg;
-		BGET_U16(arg);
-		IoSUBPROCESS(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XIO_TYPE:		/* 42 */
-	    {
-		char arg;
-		BGET_U8(arg);
-		IoTYPE(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XIO_FLAGS:		/* 43 */
-	    {
-		char arg;
-		BGET_U8(arg);
-		IoFLAGS(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XCV_STASH:		/* 44 */
-	    {
-		svindex arg;
-		BGET_svindex(arg);
-		*(SV**)&CvSTASH(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XCV_START:		/* 45 */
-	    {
-		opindex arg;
-		BGET_opindex(arg);
-		CvSTART(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XCV_ROOT:		/* 46 */
-	    {
-		opindex arg;
-		BGET_opindex(arg);
-		CvROOT(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XCV_GV:		/* 47 */
-	    {
-		svindex arg;
-		BGET_svindex(arg);
-		*(SV**)&CvGV(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XCV_FILEGV:		/* 48 */
-	    {
-		svindex arg;
-		BGET_svindex(arg);
-		*(SV**)&CvFILEGV(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XCV_DEPTH:		/* 49 */
-	    {
-		long arg;
-		BGET_I32(arg);
-		CvDEPTH(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XCV_PADLIST:		/* 50 */
-	    {
-		svindex arg;
-		BGET_svindex(arg);
-		*(SV**)&CvPADLIST(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XCV_OUTSIDE:		/* 51 */
-	    {
-		svindex arg;
-		BGET_svindex(arg);
-		*(SV**)&CvOUTSIDE(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XCV_FLAGS:		/* 52 */
-	    {
-		U8 arg;
-		BGET_U8(arg);
-		CvFLAGS(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_AV_EXTEND:		/* 53 */
-	    {
-		SSize_t arg;
-		BGET_I32(arg);
-		BSET_av_extend(PL_bytecode_sv, arg);
-		break;
-	    }
-	  case INSN_AV_PUSH:		/* 54 */
-	    {
-		svindex arg;
-		BGET_svindex(arg);
-		BSET_av_push(PL_bytecode_sv, arg);
-		break;
-	    }
-	  case INSN_XAV_FILL:		/* 55 */
-	    {
-		SSize_t arg;
-		BGET_I32(arg);
-		AvFILLp(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XAV_MAX:		/* 56 */
-	    {
-		SSize_t arg;
-		BGET_I32(arg);
-		AvMAX(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XAV_FLAGS:		/* 57 */
-	    {
-		U8 arg;
-		BGET_U8(arg);
-		AvFLAGS(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XHV_RITER:		/* 58 */
-	    {
-		I32 arg;
-		BGET_I32(arg);
-		HvRITER(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_XHV_NAME:		/* 59 */
-	    {
-		pvcontents arg;
-		BGET_pvcontents(arg);
-		HvNAME(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_HV_STORE:		/* 60 */
-	    {
-		svindex arg;
-		BGET_svindex(arg);
-		BSET_hv_store(PL_bytecode_sv, arg);
-		break;
-	    }
-	  case INSN_SV_MAGIC:		/* 61 */
-	    {
-		char arg;
-		BGET_U8(arg);
-		BSET_sv_magic(PL_bytecode_sv, arg);
-		break;
-	    }
-	  case INSN_MG_OBJ:		/* 62 */
-	    {
-		svindex arg;
-		BGET_svindex(arg);
-		SvMAGIC(PL_bytecode_sv)->mg_obj = arg;
-		break;
-	    }
-	  case INSN_MG_PRIVATE:		/* 63 */
-	    {
-		U16 arg;
-		BGET_U16(arg);
-		SvMAGIC(PL_bytecode_sv)->mg_private = arg;
-		break;
-	    }
-	  case INSN_MG_FLAGS:		/* 64 */
-	    {
-		U8 arg;
-		BGET_U8(arg);
-		SvMAGIC(PL_bytecode_sv)->mg_flags = arg;
-		break;
-	    }
-	  case INSN_MG_PV:		/* 65 */
-	    {
-		pvcontents arg;
-		BGET_pvcontents(arg);
-		BSET_mg_pv(SvMAGIC(PL_bytecode_sv), arg);
-		break;
-	    }
-	  case INSN_XMG_STASH:		/* 66 */
-	    {
-		svindex arg;
-		BGET_svindex(arg);
-		*(SV**)&SvSTASH(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_GV_FETCHPV:		/* 67 */
-	    {
-		strconst arg;
-		BGET_strconst(arg);
-		BSET_gv_fetchpv(PL_bytecode_sv, arg);
-		break;
-	    }
-	  case INSN_GV_STASHPV:		/* 68 */
-	    {
-		strconst arg;
-		BGET_strconst(arg);
-		BSET_gv_stashpv(PL_bytecode_sv, arg);
-		break;
-	    }
-	  case INSN_GP_SV:		/* 69 */
-	    {
-		svindex arg;
-		BGET_svindex(arg);
-		GvSV(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_GP_REFCNT:		/* 70 */
-	    {
-		U32 arg;
-		BGET_U32(arg);
-		GvREFCNT(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_GP_REFCNT_ADD:		/* 71 */
-	    {
-		I32 arg;
-		BGET_I32(arg);
-		BSET_gp_refcnt_add(GvREFCNT(PL_bytecode_sv), arg);
-		break;
-	    }
-	  case INSN_GP_AV:		/* 72 */
-	    {
-		svindex arg;
-		BGET_svindex(arg);
-		*(SV**)&GvAV(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_GP_HV:		/* 73 */
-	    {
-		svindex arg;
-		BGET_svindex(arg);
-		*(SV**)&GvHV(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_GP_CV:		/* 74 */
-	    {
-		svindex arg;
-		BGET_svindex(arg);
-		*(SV**)&GvCV(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_GP_FILEGV:		/* 75 */
-	    {
-		svindex arg;
-		BGET_svindex(arg);
-		*(SV**)&GvFILEGV(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_GP_IO:		/* 76 */
-	    {
-		svindex arg;
-		BGET_svindex(arg);
-		*(SV**)&GvIOp(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_GP_FORM:		/* 77 */
-	    {
-		svindex arg;
-		BGET_svindex(arg);
-		*(SV**)&GvFORM(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_GP_CVGEN:		/* 78 */
-	    {
-		U32 arg;
-		BGET_U32(arg);
-		GvCVGEN(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_GP_LINE:		/* 79 */
-	    {
-		line_t arg;
-		BGET_U16(arg);
-		GvLINE(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_GP_SHARE:		/* 80 */
-	    {
-		svindex arg;
-		BGET_svindex(arg);
-		BSET_gp_share(PL_bytecode_sv, arg);
-		break;
-	    }
-	  case INSN_XGV_FLAGS:		/* 81 */
-	    {
-		U8 arg;
-		BGET_U8(arg);
-		GvFLAGS(PL_bytecode_sv) = arg;
-		break;
-	    }
-	  case INSN_OP_NEXT:		/* 82 */
-	    {
-		opindex arg;
-		BGET_opindex(arg);
-		PL_op->op_next = arg;
-		break;
-	    }
-	  case INSN_OP_SIBLING:		/* 83 */
-	    {
-		opindex arg;
-		BGET_opindex(arg);
-		PL_op->op_sibling = arg;
-		break;
-	    }
-	  case INSN_OP_PPADDR:		/* 84 */
-	    {
-		strconst arg;
-		BGET_strconst(arg);
-		BSET_op_ppaddr(PL_op->op_ppaddr, arg);
-		break;
-	    }
-	  case INSN_OP_TARG:		/* 85 */
-	    {
-		PADOFFSET arg;
-		BGET_U32(arg);
-		PL_op->op_targ = arg;
-		break;
-	    }
-	  case INSN_OP_TYPE:		/* 86 */
-	    {
-		OPCODE arg;
-		BGET_U16(arg);
-		BSET_op_type(PL_op, arg);
-		break;
-	    }
-	  case INSN_OP_SEQ:		/* 87 */
-	    {
-		U16 arg;
-		BGET_U16(arg);
-		PL_op->op_seq = arg;
-		break;
-	    }
-	  case INSN_OP_FLAGS:		/* 88 */
-	    {
-		U8 arg;
-		BGET_U8(arg);
-		PL_op->op_flags = arg;
-		break;
-	    }
-	  case INSN_OP_PRIVATE:		/* 89 */
-	    {
-		U8 arg;
-		BGET_U8(arg);
-		PL_op->op_private = arg;
-		break;
-	    }
-	  case INSN_OP_FIRST:		/* 90 */
-	    {
-		opindex arg;
-		BGET_opindex(arg);
-		cUNOP->op_first = arg;
-		break;
-	    }
-	  case INSN_OP_LAST:		/* 91 */
-	    {
-		opindex arg;
-		BGET_opindex(arg);
-		cBINOP->op_last = arg;
-		break;
-	    }
-	  case INSN_OP_OTHER:		/* 92 */
-	    {
-		opindex arg;
-		BGET_opindex(arg);
-		cLOGOP->op_other = arg;
-		break;
-	    }
-	  case INSN_OP_TRUE:		/* 93 */
-	    {
-		opindex arg;
-		BGET_opindex(arg);
-		cCONDOP->op_true = arg;
-		break;
-	    }
-	  case INSN_OP_FALSE:		/* 94 */
-	    {
-		opindex arg;
-		BGET_opindex(arg);
-		cCONDOP->op_false = arg;
-		break;
-	    }
-	  case INSN_OP_CHILDREN:		/* 95 */
-	    {
-		U32 arg;
-		BGET_U32(arg);
-		cLISTOP->op_children = arg;
-		break;
-	    }
-	  case INSN_OP_PMREPLROOT:		/* 96 */
-	    {
-		opindex arg;
-		BGET_opindex(arg);
-		cPMOP->op_pmreplroot = arg;
-		break;
-	    }
-	  case INSN_OP_PMREPLROOTGV:		/* 97 */
-	    {
-		svindex arg;
-		BGET_svindex(arg);
-		*(SV**)&cPMOP->op_pmreplroot = arg;
-		break;
-	    }
-	  case INSN_OP_PMREPLSTART:		/* 98 */
-	    {
-		opindex arg;
-		BGET_opindex(arg);
-		cPMOP->op_pmreplstart = arg;
-		break;
-	    }
-	  case INSN_OP_PMNEXT:		/* 99 */
-	    {
-		opindex arg;
-		BGET_opindex(arg);
-		*(OP**)&cPMOP->op_pmnext = arg;
-		break;
-	    }
-	  case INSN_PREGCOMP:		/* 100 */
-	    {
-		pvcontents arg;
-		BGET_pvcontents(arg);
-		BSET_pregcomp(PL_op, arg);
-		break;
-	    }
-	  case INSN_OP_PMFLAGS:		/* 101 */
-	    {
-		U16 arg;
-		BGET_U16(arg);
-		cPMOP->op_pmflags = arg;
-		break;
-	    }
-	  case INSN_OP_PMPERMFLAGS:		/* 102 */
-	    {
-		U16 arg;
-		BGET_U16(arg);
-		cPMOP->op_pmpermflags = arg;
-		break;
-	    }
-	  case INSN_OP_SV:		/* 103 */
-	    {
-		svindex arg;
-		BGET_svindex(arg);
-		cSVOP->op_sv = arg;
-		break;
-	    }
-	  case INSN_OP_GV:		/* 104 */
-	    {
-		svindex arg;
-		BGET_svindex(arg);
-		*(SV**)&cGVOP->op_gv = arg;
-		break;
-	    }
-	  case INSN_OP_PV:		/* 105 */
-	    {
-		pvcontents arg;
-		BGET_pvcontents(arg);
-		cPVOP->op_pv = arg;
-		break;
-	    }
-	  case INSN_OP_PV_TR:		/* 106 */
-	    {
-		op_tr_array arg;
-		BGET_op_tr_array(arg);
-		cPVOP->op_pv = arg;
-		break;
-	    }
-	  case INSN_OP_REDOOP:		/* 107 */
-	    {
-		opindex arg;
-		BGET_opindex(arg);
-		cLOOP->op_redoop = arg;
-		break;
-	    }
-	  case INSN_OP_NEXTOP:		/* 108 */
-	    {
-		opindex arg;
-		BGET_opindex(arg);
-		cLOOP->op_nextop = arg;
-		break;
-	    }
-	  case INSN_OP_LASTOP:		/* 109 */
-	    {
-		opindex arg;
-		BGET_opindex(arg);
-		cLOOP->op_lastop = arg;
-		break;
-	    }
-	  case INSN_COP_LABEL:		/* 110 */
-	    {
-		pvcontents arg;
-		BGET_pvcontents(arg);
-		cCOP->cop_label = arg;
-		break;
-	    }
-	  case INSN_COP_STASH:		/* 111 */
-	    {
-		svindex arg;
-		BGET_svindex(arg);
-		*(SV**)&cCOP->cop_stash = arg;
-		break;
-	    }
-	  case INSN_COP_FILEGV:		/* 112 */
-	    {
-		svindex arg;
-		BGET_svindex(arg);
-		*(SV**)&cCOP->cop_filegv = arg;
-		break;
-	    }
-	  case INSN_COP_SEQ:		/* 113 */
-	    {
-		U32 arg;
-		BGET_U32(arg);
-		cCOP->cop_seq = arg;
-		break;
-	    }
-	  case INSN_COP_ARYBASE:		/* 114 */
-	    {
-		I32 arg;
-		BGET_I32(arg);
-		cCOP->cop_arybase = arg;
-		break;
-	    }
-	  case INSN_COP_LINE:		/* 115 */
-	    {
-		line_t arg;
-		BGET_U16(arg);
-		cCOP->cop_line = arg;
-		break;
-	    }
-	  case INSN_MAIN_START:		/* 116 */
-	    {
-		opindex arg;
-		BGET_opindex(arg);
-		PL_main_start = arg;
-		break;
-	    }
-	  case INSN_MAIN_ROOT:		/* 117 */
-	    {
-		opindex arg;
-		BGET_opindex(arg);
-		PL_main_root = arg;
-		break;
-	    }
-	  case INSN_CURPAD:		/* 118 */
-	    {
-		svindex arg;
-		BGET_svindex(arg);
-		BSET_curpad(PL_curpad, arg);
-		break;
-	    }
-	  default:
-	    croak("Illegal bytecode instruction %d\n", insn);
-	    /* NOTREACHED */
-	}
-    }
-}
diff --git a/contrib/perl5/byterun.h b/contrib/perl5/byterun.h
deleted file mode 100644
index bd54c76e7635..000000000000
--- a/contrib/perl5/byterun.h
+++ /dev/null
@@ -1,184 +0,0 @@
-/*
- *      Copyright (c) 1996-1998 Malcolm Beattie
- *
- *      You may distribute under the terms of either the GNU General Public
- *      License or the Artistic License, as specified in the README file.
- *
- */
-/*
- * This file is autogenerated from bytecode.pl. Changes made here will be lost.
- */
-#ifdef INDIRECT_BGET_MACROS
-struct bytestream {
-    void *data;
-    int (*fgetc)(void *);
-    int (*fread)(char *, size_t, size_t, void*);
-    void (*freadpv)(U32, void*);
-};
-#endif /* INDIRECT_BGET_MACROS */
-
-void *bset_obj_store _((void *, I32));
-
-enum {
-    INSN_RET,			/* 0 */
-    INSN_LDSV,			/* 1 */
-    INSN_LDOP,			/* 2 */
-    INSN_STSV,			/* 3 */
-    INSN_STOP,			/* 4 */
-    INSN_LDSPECSV,			/* 5 */
-    INSN_NEWSV,			/* 6 */
-    INSN_NEWOP,			/* 7 */
-    INSN_NEWOPN,			/* 8 */
-    INSN_NEWPV,			/* 9 */
-    INSN_NOP,			/* 10 */
-    INSN_PV_CUR,			/* 11 */
-    INSN_PV_FREE,			/* 12 */
-    INSN_SV_UPGRADE,			/* 13 */
-    INSN_SV_REFCNT,			/* 14 */
-    INSN_SV_REFCNT_ADD,			/* 15 */
-    INSN_SV_FLAGS,			/* 16 */
-    INSN_XRV,			/* 17 */
-    INSN_XPV,			/* 18 */
-    INSN_XIV32,			/* 19 */
-    INSN_XIV64,			/* 20 */
-    INSN_XNV,			/* 21 */
-    INSN_XLV_TARGOFF,			/* 22 */
-    INSN_XLV_TARGLEN,			/* 23 */
-    INSN_XLV_TARG,			/* 24 */
-    INSN_XLV_TYPE,			/* 25 */
-    INSN_XBM_USEFUL,			/* 26 */
-    INSN_XBM_PREVIOUS,			/* 27 */
-    INSN_XBM_RARE,			/* 28 */
-    INSN_XFM_LINES,			/* 29 */
-    INSN_XIO_LINES,			/* 30 */
-    INSN_XIO_PAGE,			/* 31 */
-    INSN_XIO_PAGE_LEN,			/* 32 */
-    INSN_XIO_LINES_LEFT,			/* 33 */
-    INSN_XIO_TOP_NAME,			/* 34 */
-    INSN_COMMENT,			/* 35 */
-    INSN_XIO_TOP_GV,			/* 36 */
-    INSN_XIO_FMT_NAME,			/* 37 */
-    INSN_XIO_FMT_GV,			/* 38 */
-    INSN_XIO_BOTTOM_NAME,			/* 39 */
-    INSN_XIO_BOTTOM_GV,			/* 40 */
-    INSN_XIO_SUBPROCESS,			/* 41 */
-    INSN_XIO_TYPE,			/* 42 */
-    INSN_XIO_FLAGS,			/* 43 */
-    INSN_XCV_STASH,			/* 44 */
-    INSN_XCV_START,			/* 45 */
-    INSN_XCV_ROOT,			/* 46 */
-    INSN_XCV_GV,			/* 47 */
-    INSN_XCV_FILEGV,			/* 48 */
-    INSN_XCV_DEPTH,			/* 49 */
-    INSN_XCV_PADLIST,			/* 50 */
-    INSN_XCV_OUTSIDE,			/* 51 */
-    INSN_XCV_FLAGS,			/* 52 */
-    INSN_AV_EXTEND,			/* 53 */
-    INSN_AV_PUSH,			/* 54 */
-    INSN_XAV_FILL,			/* 55 */
-    INSN_XAV_MAX,			/* 56 */
-    INSN_XAV_FLAGS,			/* 57 */
-    INSN_XHV_RITER,			/* 58 */
-    INSN_XHV_NAME,			/* 59 */
-    INSN_HV_STORE,			/* 60 */
-    INSN_SV_MAGIC,			/* 61 */
-    INSN_MG_OBJ,			/* 62 */
-    INSN_MG_PRIVATE,			/* 63 */
-    INSN_MG_FLAGS,			/* 64 */
-    INSN_MG_PV,			/* 65 */
-    INSN_XMG_STASH,			/* 66 */
-    INSN_GV_FETCHPV,			/* 67 */
-    INSN_GV_STASHPV,			/* 68 */
-    INSN_GP_SV,			/* 69 */
-    INSN_GP_REFCNT,			/* 70 */
-    INSN_GP_REFCNT_ADD,			/* 71 */
-    INSN_GP_AV,			/* 72 */
-    INSN_GP_HV,			/* 73 */
-    INSN_GP_CV,			/* 74 */
-    INSN_GP_FILEGV,			/* 75 */
-    INSN_GP_IO,			/* 76 */
-    INSN_GP_FORM,			/* 77 */
-    INSN_GP_CVGEN,			/* 78 */
-    INSN_GP_LINE,			/* 79 */
-    INSN_GP_SHARE,			/* 80 */
-    INSN_XGV_FLAGS,			/* 81 */
-    INSN_OP_NEXT,			/* 82 */
-    INSN_OP_SIBLING,			/* 83 */
-    INSN_OP_PPADDR,			/* 84 */
-    INSN_OP_TARG,			/* 85 */
-    INSN_OP_TYPE,			/* 86 */
-    INSN_OP_SEQ,			/* 87 */
-    INSN_OP_FLAGS,			/* 88 */
-    INSN_OP_PRIVATE,			/* 89 */
-    INSN_OP_FIRST,			/* 90 */
-    INSN_OP_LAST,			/* 91 */
-    INSN_OP_OTHER,			/* 92 */
-    INSN_OP_TRUE,			/* 93 */
-    INSN_OP_FALSE,			/* 94 */
-    INSN_OP_CHILDREN,			/* 95 */
-    INSN_OP_PMREPLROOT,			/* 96 */
-    INSN_OP_PMREPLROOTGV,			/* 97 */
-    INSN_OP_PMREPLSTART,			/* 98 */
-    INSN_OP_PMNEXT,			/* 99 */
-    INSN_PREGCOMP,			/* 100 */
-    INSN_OP_PMFLAGS,			/* 101 */
-    INSN_OP_PMPERMFLAGS,			/* 102 */
-    INSN_OP_SV,			/* 103 */
-    INSN_OP_GV,			/* 104 */
-    INSN_OP_PV,			/* 105 */
-    INSN_OP_PV_TR,			/* 106 */
-    INSN_OP_REDOOP,			/* 107 */
-    INSN_OP_NEXTOP,			/* 108 */
-    INSN_OP_LASTOP,			/* 109 */
-    INSN_COP_LABEL,			/* 110 */
-    INSN_COP_STASH,			/* 111 */
-    INSN_COP_FILEGV,			/* 112 */
-    INSN_COP_SEQ,			/* 113 */
-    INSN_COP_ARYBASE,			/* 114 */
-    INSN_COP_LINE,			/* 115 */
-    INSN_MAIN_START,			/* 116 */
-    INSN_MAIN_ROOT,			/* 117 */
-    INSN_CURPAD,			/* 118 */
-    MAX_INSN = 118
-};
-
-enum {
-    OPt_OP,		/* 0 */
-    OPt_UNOP,		/* 1 */
-    OPt_BINOP,		/* 2 */
-    OPt_LOGOP,		/* 3 */
-    OPt_CONDOP,		/* 4 */
-    OPt_LISTOP,		/* 5 */
-    OPt_PMOP,		/* 6 */
-    OPt_SVOP,		/* 7 */
-    OPt_GVOP,		/* 8 */
-    OPt_PVOP,		/* 9 */
-    OPt_LOOP,		/* 10 */
-    OPt_COP		/* 11 */
-};
-
-EXT int optype_size[]
-#ifdef DOINIT
-= {
-    sizeof(OP),
-    sizeof(UNOP),
-    sizeof(BINOP),
-    sizeof(LOGOP),
-    sizeof(CONDOP),
-    sizeof(LISTOP),
-    sizeof(PMOP),
-    sizeof(SVOP),
-    sizeof(GVOP),
-    sizeof(PVOP),
-    sizeof(LOOP),
-    sizeof(COP)
-}
-#endif /* DOINIT */
-;
-
-#define INIT_SPECIALSV_LIST STMT_START { \
-	PL_specialsv_list[0] = Nullsv; \
-	PL_specialsv_list[1] = &PL_sv_undef; \
-	PL_specialsv_list[2] = &PL_sv_yes; \
-	PL_specialsv_list[3] = &PL_sv_no; \
-    } STMT_END
diff --git a/contrib/perl5/eg/cgi/dna.small.gif.uu b/contrib/perl5/eg/cgi/dna.small.gif.uu
deleted file mode 100644
index d3ce24c18dce..000000000000
--- a/contrib/perl5/eg/cgi/dna.small.gif.uu
+++ /dev/null
@@ -1,63 +0,0 @@
-begin 444 dna.small.gif
-M1TE&.#=A)0`J`.<``+9%&Y<R0M<F'ID\,!<07%<G1:P<0Q`A2Q`P;"L9/L$:
-M,"480N5"&RL7:4LD0T,G144[7BHL2B4?3\0I+"</)BQ.9KD0/S878\96$Z\@
-M(:\1*RL:3L0W&QL?2#4?9>@_&A$_5<I"&C`A3*,3-A`//9X<)\@Q(L`@.#\E
-M7K,R*R\T6)H++1L72T8=4207:T`G=JX..MD^&!$_;^)2$#T=7S`79AL7.A$3
-M1-=%#^,Q&QT_:C8=1!L86]\R#4M":4H76R,515HZ4"477G@T,J\;(X(@/$\7
-M."4A2N9;$"DZ6RL34-8I$34A73P86I84/\87%1`0/V,B2"0<0N!(%QPH91<6
-M2=!5$3(=73(E23`/,!L4.=$Z'-MH%>`Y#3$=2"=#59M((H88,GP\/]X^&+$R
-M$"(79"DF33(93"$86=%;&"T4/=Y"&\\A$Q4Z4!`62*T4-Q4B9+X1*BH96SP?
-M1<0D/3(F<-TM$!`=5:H.(!<64C$W?#8J3*`S(S<@3=8V%K$](QT.6Q`43AL4
-M1:$D,;<0,\X9&,8])\@=$A(U244S5U,D6Q<V;]\I&&<K/8!*.R044>=/#YH>
-M08$I1B,09S$35R(:4C0?<19$7<D^#Q`>5!()-;4702M`=;56)A`25,0K%"X<
-M83`N>K`H'HDS*1`40,M&%!<@7M,_$A<N2L)%%18E4^<M$A@=5=0Q$Q`E311*
-M2L8E&2D<7Q\A7P\80B48,%E/8[1-'J4/-"H<3"PA1$,T?Q<15R44,R,A4AL/
-M,^M4%2,07!L+,[\[&!P4520I:C(9.=54$[,2/M-)&RP?7M=(%1$J8<-,%2H@
-M4B,=51436^]2"!X<1A<44RD</>E+#%0>0S0/:4PJ9I,F-6DG420Y<"@09R,0
-M-V$R/R4M<:\H0!(H410Z:AT27&4Q9"L@;=1%(MA-$M5+#RL4+M8Z&AT<7[<:
-M(-QA&2,36R$++B(84!0:5ALO:K$A.]X?&!$84V@;/SX<6Q`;2$(B2QD21W4J
-M1=TW&@```````````````"P`````)0`J```(_@!]:(N'18\W%15T$1N'C)V?
-M0_HH,<$G9YBX!C6<3;+T@AZ-)K@\O*"!KP^$>"KVA`L3*8P3)^5ZA)@B:AH+
-M9];F7.$Q+!`!0=*<E3'5K(:EHS2N%"AP*Y(\&##H6(!A:!XU99B*H?%4IDF?
-M!8'<"-F%9I*TH8A83:*TXYD!J83D$0ICI-NE(:O8I6&FJ$64$M5$M%!3PU,F
-M2UJD"9I41E824WT2G?BV-!$(!`=,+<IF!P>.%",&P7J"9XB82L5,48F5K,:"
-M'94FU='6;!*R3T->E"%&95DR"`/6P,I0PDF)0SG8($$RJN0R`FI(H7$A2]VD
-M*^^L_6(T3U*V%XH"_AB:HDS8H$AO5@R:P,8.I%^.:*AC(>Z!'":6RC`1L@W-
-M%1Q/,%(.'5+1`<D^74R@P2#?T*'/$"%@\(L5Y?RAB!SO3#*,-6CL44\4]C1#
-MR0Q3C&&"!AH08@(#:Y2C@`&1---,.#)\T84=R##`0",H++8#)34,@X80R:"`
-M0A<]?'#.!";`TDH.8QBB0354A!,*)WI0\<D\YJRQ3PE[V",(.D#48$T9GO22
-MA0.BC,)'*]3TP,`^\_#QA0P@>`/"*]=<HX\3"C!BAQV%5",$+Z0,0X,UL3SB
-M#B[NN$'/,A&,$L,Y[-BASR(@<**("E^,0(<&;[QA0@^,3%",#2S8H,01_LX0
-M`(0:W%`@13#TN+'#&LK@0$T0VER##50*Q/%-%%&H$`0#K7"`!B^X/`),()F0
-M0PNT[K#BRBS1-!("`^=,$8`D="B`QRW?1**+-I?(X$@(L(R2AQ8+Y,*#-*YX
-MH(00'1Q!CSI,U'!%)^_%4(X&FUB@01$.@*!#$I?4D48I&1BA!2*HD%))(.+T
-MYTEOT3B#PB/U4(,$%QD0(<\QX^CRBC=)@%`!&+:<<TH&M*C1"RJX'-'.'`YX
-M<H0@<)#"0CX+I%`*-%:4L@XFS`#[11M?U-))"&RP84LWZL!A1A^YH.*)!)3<
-MHXX6L]P3"!I`H/!`*>90`PD.F'3SR@-AG)`&_A=3'"**#[J(P<<I@YCA2@32
-M!,*+Q9H`(XT2'O2RS"CGS.U9!K>0^C0&S/#1""(ZI)'&*6,,$842N%Q!@3NK
-M"R'%%4KP0D(Q?"`S!3)<I#!!".68$T(IMHP#>BVE(/$+)#-80<PTLBRP^@$>
-M<+,`-[QH$LP+0_P!1C>=S("!,N>8XP<8H6131!B;3`#&#)"DTH(L5#P0S#W+
-MQ)*`$K1HHD4^;E!2QP%:B``&4H$,/Y2C$Y*(1%0(00A)@```77B"*$0@#3>P
-MP&PU4`,^H!","P!!$')0P^H6((I5L"$'.;``';[Q!@-\PP"<B$<]EG"(#*C"
-M%-(@0":\L0U?D&`#_L50@33.(`4M4``=&4@'+-9!!P9JP`#9T$4H=*$+!#1B
-M'3A(`SYH`81'B.,(XJ@"":0(CDRPH@/<"$88V+"%$N#A&)MPX0N2H`L]C&,<
-MEW"$%6:0BCV@XPIH>$0?)M$`<92!%OG8Q3#@(`U2C*)%9-!`&`K`!!EP0@80
-M2,0M;I$.:"C#"D.@P#UJ``]GT"*,K%B&*0+!@TFH8VV*0$(:_/`)?7@#'.'0
-M@R[H8``\:&`,=NC"*"B@!2TTHP5]N((TEH&`<)B"!PU`0RQ(P8MNS``9K6@%
-M'W31AG%$(BZ2&((PA-&#'I"A&`F8!DD\\`H6-,.,X'B'%,+R#FX4`PS&_L!$
-M.4R0#7W<0@%O2,07$($#9@C3"%C8P!5H88\]J$,"-E!;(.X@C5T<`!65V,40
-M,'&(0C!"`1JP@"3TH`T9=&,5JRC$-]+1`U%TP@@[^,$>Z$&*0%1A%XFK`BFD
-MX0L6Y"(#A_A$#[JPC@%\@1@02`(SJ#&&.`A@'\&$!AALX(4Y="`/TA"",UA!
-M@%W<8!*\$`$@C%""+G1A"9AP!"<>9@ME*)$0F\C!$I8`B3\TP@%'@$(QH$`"
-M)8@#'(B0ACB`P`,@%&,'9"##)S`1!&)\`0)^&,,^+$`("QC"#D\X!":HX0!<
-ML(`&-O!%,&H@BS#F0AI'`!LO^"`,/OS!%KJ0_H0HEA`E27Q#%T%X0"%"@`1E
-M2,`!:F!%+Q#A!G)40A!HP`4OFK`#-13#`?I(QCW38(Q/9&``%0#!);01BE>$
-M@!TZNL81$G`!-]2!&&5@A1N&T0Q<,$$$%*!``BR1A5$PPPH<74$%]*`#$.RA
-M`(VP@#`X$(`7``(%T=@`.5Q`C@:0`P[)D$4'$H`."MB#"908Q=X@,01B9$(7
-MG'A%`#8!"QSL@PUAL,0==M"")CQCP4)0QQUDP806H&,!T]A!`EH@AC2P`P,^
-MT`,*NN%-&&T!&L@X!!Y^<(4.D(,%E>A`,T20C#IXL`6-:,`5F+"#!W"@'%OH
-MA`IJ$5(#;`(;AV/'FA103(EV+(,>GHB&&ZJ`!D'<X0[-N$(N@)$+4$C@`<(`
-M$(&/<8Q;7$,1UT"``+>P!57`X1F9D`4<W$`"4MP@$ZYX\B-"004Y2$`.HT@%
-M)@IAB#><0!]FB(<I.(&`(7P"%GPPQ3)F`0YB0"$0@8"")L!Q!RH`8A&AL,8L
-BR!$$,@@#&5OX!1V.\85XA.,.,A##!T2!AP@LXP#;"`@`.P``
-end
diff --git a/contrib/perl5/eg/cgi/wilogo.gif.uu b/contrib/perl5/eg/cgi/wilogo.gif.uu
deleted file mode 100644
index c5d10423b49f..000000000000
--- a/contrib/perl5/eg/cgi/wilogo.gif.uu
+++ /dev/null
@@ -1,13 +0,0 @@
-begin 444 wilogo.gif
-M1TE&.#=A7@!$`(```'X2F?___RP`````7@!$```"_D2.J<#MKF)ZU,A3,[OO
-M(IUY']A%9"6AW$F)+#2]Y:BNLF6_\;WMH<?#I72^VP+D"@*)F&"O25KRDM&B
-M[%C-7;4_J)*6'4ZE&O`W8"1OQ5UGPWRBIKDPM!MW9J]-[;LUKL;$5W.'YQ3(
-M(O<&-^>F*(A55\BX%UEI^;<VB0BH1RFX2=<IELE4^*0'N?-I>OJ8N%(*Z^4G
-M.OJJ>8HZ.(>;JRMD><E[!KQHB^3;:APL6Z8\RKPK/)O:*-WLW&7]*\UYR]J)
-M?<P=1MR-_6VN76,WGAV^32W^3CZ_SCY3;W__C-R^CU^\%M#T!9PVL(ZZ&>X"
-M%A1XSM]!A?T8/C0T$1XMJG\B&G+,"-&C/(VS0(842;`)M'S>_OE8F#"=2S#*
-M8LHLAS'D1Y,42UGY9O,F-T:X@@JEE@D1RW>/D@8R.DZ-+*E0CQ:9JJ5JU!SQ
-MR&BU2D.;E*4'ER0TNY%G2A/Y.G[=VG%81+5K_UG$21<A6;=YP9'5B++O7:@7
-M\]J5]]?DX7:)%<]5%=B/55>-GQW55;$8L\RW6J8-9>QM7<^A/SMZK!ESY$,+
-(KPA.EJ```#L`
-end
diff --git a/contrib/perl5/ext/B/byteperl.c b/contrib/perl5/ext/B/byteperl.c
deleted file mode 100644
index 6b53e3b174a5..000000000000
--- a/contrib/perl5/ext/B/byteperl.c
+++ /dev/null
@@ -1,110 +0,0 @@
-#include "EXTERN.h"
-#include "perl.h"
-#ifndef PATCHLEVEL
-#include "patchlevel.h"
-#endif
-
-static void xs_init _((void));
-static PerlInterpreter *my_perl;
-
-int
-#ifndef CAN_PROTOTYPE
-main(argc, argv, env)
-int argc;
-char **argv;
-char **env;
-#else  /* def(CAN_PROTOTYPE) */
-main(int argc, char **argv, char **env)
-#endif  /* def(CAN_PROTOTYPE) */
-{
-    int exitstatus;
-    int i;
-    char **fakeargv;
-    FILE *fp;
-#ifdef INDIRECT_BGET_MACROS
-    struct bytestream bs;
-#endif /* INDIRECT_BGET_MACROS */
-
-    INIT_SPECIALSV_LIST;
-    PERL_SYS_INIT(&argc,&argv);
- 
-#if PATCHLEVEL > 3 || (PATCHLEVEL == 3 && SUBVERSION >= 1)
-    perl_init_i18nl10n(1);
-#else
-    perl_init_i18nl14n(1);
-#endif
-
-    if (!PL_do_undump) {
-	my_perl = perl_alloc();
-	if (!my_perl)
-#ifdef VMS
-	    exit(vaxc$errno);
-#else
-	    exit(1);
-#endif
-	perl_construct( my_perl );
-    }
-
-#ifdef CSH
-    if (!PL_cshlen) 
-      PL_cshlen = strlen(PL_cshname);
-#endif
-
-    if (argc < 2)
-	fp = stdin;
-    else {
-#ifdef WIN32
-	fp = fopen(argv[1], "rb");
-#else
-	fp = fopen(argv[1], "r");
-#endif
-	if (!fp) {
-	    perror(argv[1]);
-#ifdef VMS
-	    exit(vaxc$errno);
-#else
-	    exit(1);
-#endif
-	}
-	argv++;
-	argc--;
-    }
-    New(666, fakeargv, argc + 4, char *);
-    fakeargv[0] = argv[0];
-    fakeargv[1] = "-e";
-    fakeargv[2] = "";
-    fakeargv[3] = "--";
-    for (i = 1; i < argc; i++)
-	fakeargv[i + 3] = argv[i];
-    fakeargv[argc + 3] = 0;
-    
-    exitstatus = perl_parse(my_perl, xs_init, argc + 3, fakeargv, NULL);
-    if (exitstatus)
-	exit( exitstatus );
-
-    sv_setpv(GvSV(gv_fetchpv("0", TRUE, SVt_PV)), argv[0]);
-    PL_main_cv = PL_compcv;
-    PL_compcv = 0;
-
-#ifdef INDIRECT_BGET_MACROS
-    bs.data = fp;
-    bs.fgetc = (int(*) _((void*)))fgetc;
-    bs.fread = (int(*) _((char*,size_t,size_t,void*)))fread;
-    bs.freadpv = freadpv;
-    byterun(bs);
-#else    
-    byterun(fp);
-#endif /* INDIRECT_BGET_MACROS */
-    
-    exitstatus = perl_run( my_perl );
-
-    perl_destruct( my_perl );
-    perl_free( my_perl );
-
-    exit( exitstatus );
-}
-
-static void
-xs_init()
-{
-}
diff --git a/contrib/perl5/ext/DynaLoader/dl_cygwin32.xs b/contrib/perl5/ext/DynaLoader/dl_cygwin32.xs
deleted file mode 100644
index b64ab3e34565..000000000000
--- a/contrib/perl5/ext/DynaLoader/dl_cygwin32.xs
+++ /dev/null
@@ -1,153 +0,0 @@
-/* dl_cygwin32.xs
- * 
- * Platform:	Win32 (Windows NT/Windows 95)
- * Author:	Wei-Yuen Tan (wyt@hip.com)
- * Created:	A warm day in June, 1995
- *
- * Modified:
- *    August 23rd 1995 - rewritten after losing everything when I
- *                       wiped off my NT partition (eek!)
- */
-/* Modified from the original dl_win32.xs to work with cygwin32
-   -John Cerney 3/26/97
-*/
-/* Porting notes:
-
-I merely took Paul's dl_dlopen.xs, took out extraneous stuff and
-replaced the appropriate SunOS calls with the corresponding Win32
-calls.
-
-*/
-
-#define WIN32_LEAN_AND_MEAN
-// Defines from windows needed for this function only. Can't include full
-//  Cygwin32 windows headers because of problems with CONTEXT redefinition
-//  Removed logic to tell not dynamically load static modules. It is assumed that all
-//   modules are dynamically built. This should be similar to the behavoir on sunOS.
-//   Leaving in the logic would have required changes to the standard perlmain.c code
-//
-// // Includes call a dll function to initialize it's impure_ptr.
-#include <stdio.h>
-void (*impure_setupptr)(struct _reent *);  // pointer to the impure_setup routine
-
-//#include <windows.h>
-#define LOAD_WITH_ALTERED_SEARCH_PATH	(8)
-typedef void *HANDLE;
-typedef HANDLE HINSTANCE;
-#define STDCALL     __attribute__ ((stdcall))
-typedef int STDCALL (*FARPROC)();
-
-HINSTANCE
-STDCALL
-LoadLibraryExA(
-	       char* lpLibFileName,
-	       HANDLE hFile,
-	       unsigned int dwFlags
-	       );
-unsigned int
-STDCALL
-GetLastError(
-	     void
-	     );
-FARPROC
-STDCALL
-GetProcAddress(
-	       HINSTANCE hModule,
-	       char* lpProcName
-	       );
-
-#include <string.h>
-
-#include "EXTERN.h"
-#include "perl.h"
-#include "XSUB.h"
-
-#include "dlutils.c"	/* SaveError() etc	*/
-
-static void
-dl_private_init()
-{
-    (void)dl_generic_private_init();
-}
-
-
-MODULE = DynaLoader	PACKAGE = DynaLoader
-
-BOOT:
-    (void)dl_private_init();
-
-void *
-dl_load_file(filename,flags=0)
-    char *		filename
-    int			flags
-    PREINIT:
-    CODE:
-    DLDEBUG(1,PerlIO_printf(PerlIO_stderr(),"dl_load_file(%s):\n", filename));
-
-    RETVAL = (void*) LoadLibraryExA(filename, NULL, LOAD_WITH_ALTERED_SEARCH_PATH ) ;
-
-    DLDEBUG(2,PerlIO_printf(PerlIO_stderr()," libref=%x\n", RETVAL));
-    ST(0) = sv_newmortal() ;
-    if (RETVAL == NULL){
-	SaveError("%d",GetLastError()) ;
-    }
-    else{
-	// setup the dll's impure_ptr:
-	impure_setupptr = GetProcAddress(RETVAL, "impure_setup");
-	if( impure_setupptr == NULL){
-		printf(
-    "Cygwin32 dynaloader error: could not load impure_setup symbol\n");
-		RETVAL = NULL;		
-	}
-	else{
-		// setup the DLLs impure_ptr:
-		(*impure_setupptr)(_impure_ptr);
-		sv_setiv( ST(0), (IV)RETVAL);
-	}
-   }
-	
-
-
-void *
-dl_find_symbol(libhandle, symbolname)
-    void *	libhandle
-    char *	symbolname
-    CODE:
-    DLDEBUG(2,PerlIO_printf(PerlIO_stderr(),"dl_find_symbol(handle=%x, symbol=%s)\n",
-	libhandle, symbolname));
-    RETVAL = (void*) GetProcAddress((HINSTANCE) libhandle, symbolname);
-    DLDEBUG(2,PerlIO_printf(PerlIO_stderr(),"  symbolref = %x\n", RETVAL));
-    ST(0) = sv_newmortal() ;
-    if (RETVAL == NULL)
-	SaveError("%d",GetLastError()) ;
-    else
-	sv_setiv( ST(0), (IV)RETVAL);
-
-
-void
-dl_undef_symbols()
-    PPCODE:
-
-
-
-# These functions should not need changing on any platform:
-
-void
-dl_install_xsub(perl_name, symref, filename="$Package")
-    char *		perl_name
-    void *		symref 
-    char *		filename
-    CODE:
-    DLDEBUG(2,PerlIO_printf(PerlIO_stderr(),"dl_install_xsub(name=%s, symref=%x)\n",
-		perl_name, symref));
-    ST(0)=sv_2mortal(newRV((SV*)newXS(perl_name, (void(*)())symref, filename)));
-
-
-char *
-dl_error()
-    CODE:
-    RETVAL = LastError ;
-    OUTPUT:
-    RETVAL
-
-# end.
diff --git a/contrib/perl5/hints/cygwin32.sh b/contrib/perl5/hints/cygwin32.sh
deleted file mode 100644
index 5853499954a7..000000000000
--- a/contrib/perl5/hints/cygwin32.sh
+++ /dev/null
@@ -1,50 +0,0 @@
-#! /bin/sh
-# cygwin32.sh - hintsfile for building perl on Windows NT using the
-#     Cygnus Win32 Development Kit.
-#     See "http://www.cygnus.com/misc/gnu-win32/" to learn about the kit.
-#
-path_sep=\;
-exe_ext='.exe'
-firstmakefile='GNUmakefile'
-if test -f $sh.exe; then sh=$sh.exe; fi
-startsh="#!$sh"
-cc='gcc2'
-ld='ld2'
-usrinc='/gnuwin32/H-i386-cygwin32/i386-cygwin32/include'
-libpth='/gnuwin32/H-i386-cygwin32/i386-cygwin32/lib /gnuwin32/H-i386-cygwin32/lib'
-libs='-lcygwin -lm -lc -lkernel32'
-# dynamic lib stuff
-so='dll'
-#i_dlfcn='define'
-dlsrc='dl_cygwin32.xs'
-usedl='y'
-# flag to include the perl.exe export variable translation file cw32imp.h
-# when building extension libs
-cccdlflags='-DCYGWIN32 -DDLLIMPORT '
-# flag that signals gcc2 to build exportable perl
-ccdlflags='-buildperl '
-lddlflags='-L../.. -L/gnuwin32/H-i386-cygwin32/i386-cygwin32/lib -lperlexp -lcygwin'
-d_voidsig='undef'
-extensions='Fcntl IO Opcode SDBM_File'
-lns='cp'
-signal_t='int'
-useposix='false'
-rd_nodata='0'
-eagain='EAGAIN'
-archname='cygwin32'
-#
-
-installbin='/usr/local/bin'
-installman1dir=''
-installman3dir=''
-installprivlib='/usr/local/lib/perl5'
-installscript='/usr/local/bin'
-
-installsitelib='/usr/local/lib/perl5/site_perl'
-libc='/gnuwin32/H-i386-cygwin32/i386-cygwin32/lib/libc.a'
-
-perlpath='/usr/local/bin/perl'
-
-sitelib='/usr/local/lib/perl5/site_perl'
-sitelibexp='/usr/local/lib/perl5/site_perl'
-usrinc='/gnuwin32/H-i386-cygwin32/i386-cygwin32/include'
diff --git a/contrib/perl5/interp.sym b/contrib/perl5/interp.sym
deleted file mode 100644
index fbbe2a7c9c63..000000000000
--- a/contrib/perl5/interp.sym
+++ /dev/null
@@ -1,211 +0,0 @@
-Argv
-Cmd
-DBcv
-DBgv
-DBline
-DBsignal
-DBsingle
-DBsub
-DBtrace
-ampergv
-archpat_auto
-argvgv
-argvoutgv
-basetime
-beginav
-bodytarget
-bostr
-cddir
-chopset
-colors
-colorset
-compcv
-compiling
-comppad
-comppad_name
-comppad_name_fill
-comppad_name_floor
-copline
-curcop
-curcopdb
-curpm
-curstack
-curstash
-curstname
-dbargs
-debdelim
-debname
-debstash
-defgv
-defoutgv
-defstash
-delaymagic
-diehook
-dirty
-dlevel
-dlmax
-doextract
-doswitches
-dowarn
-dumplvl
-e_script
-endav
-envgv
-errgv
-eval_root
-eval_start
-exitlist
-exitlistlen
-extralen
-fdpid
-filemode
-firstgv
-forkprocess
-formfeed
-formtarget
-generation
-gensym
-globalstash
-hintgv
-in_clean_all
-in_clean_objs
-in_eval
-incgv
-initav
-inplace
-bytecode_iv_overflows
-sys_intern
-last_in_gv
-last_proto
-lastfd
-lastgotoprobe
-lastscream
-lastsize
-lastspbase
-laststatval
-laststype
-leftgv
-lineary
-linestart
-localizing
-localpatches
-main_cv
-main_root
-main_start
-mainstack
-maxscream
-maxsysfd
-mess_sv
-minus_F
-minus_a
-minus_c
-minus_l
-minus_n
-minus_p
-modglobal
-modcount
-multiline
-mystrk
-nrs
-bytecode_obj_list
-bytecode_obj_list_fill
-ofmt
-ofs
-ofslen
-oldlastpm
-oldname
-op_mask
-origargc
-origargv
-origfilename
-ors
-orslen
-parsehook
-patchlevel
-pending_ident
-perldb
-perl_destruct_level
-preambled
-preambleav
-preprocess
-profiledata
-bytecode_pv
-reg_eval_set
-reg_flags
-reg_start_tmp
-reg_start_tmpl
-regbol
-regcc
-regcode
-regcompp
-regexecp
-regdata
-regdummy
-regendp
-regeol
-regflags
-regindent
-reginput
-reginterp_cnt
-reglastparen
-regnarrate
-regnaughty
-regnpar
-regcomp_parse
-regprecomp
-regprev
-regprogram
-regsawback
-regseen
-regsize
-regstartp
-regtill
-regxend
-replgv
-restartop
-rightgv
-rs
-rsfp
-rsfp_filters
-regcomp_rx
-sawampersand
-sawstudy
-sawvec
-screamfirst
-screamnext
-secondgv
-seen_zerolen
-seen_evals
-siggv
-sortcop
-sortcxix
-sortstash
-splitstr
-start_env
-statcache
-statgv
-statname
-statusvalue
-statusvalue_vms
-stdingv
-strchop
-strtab
-sub_generation
-sublex_info
-bytecode_sv
-sv_count
-sv_objcount
-sv_root
-sv_arenaroot
-tainted
-tainting
-threadnum
-thrsv
-tmps_floor
-tmps_ix
-tmps_max
-tmps_stack
-top_env
-toptarget
-unsafe
-warnhook
diff --git a/contrib/perl5/lib/Sys/Hostname.pm b/contrib/perl5/lib/Sys/Hostname.pm
deleted file mode 100644
index 95f9a99a7abf..000000000000
--- a/contrib/perl5/lib/Sys/Hostname.pm
+++ /dev/null
@@ -1,121 +0,0 @@
-package Sys::Hostname;
-
-use Carp;
-require Exporter;
-@ISA = qw(Exporter);
-@EXPORT = qw(hostname);
-
-=head1 NAME
-
-Sys::Hostname - Try every conceivable way to get hostname
-
-=head1 SYNOPSIS
-
-    use Sys::Hostname;
-    $host = hostname;
-
-=head1 DESCRIPTION
-
-Attempts several methods of getting the system hostname and
-then caches the result.  It tries C<syscall(SYS_gethostname)>,
-C<`hostname`>, C<`uname -n`>, and the file F</com/host>.
-If all that fails it C<croak>s.
-
-All nulls, returns, and newlines are removed from the result.
-
-=head1 AUTHOR
-
-David Sundstrom E<lt>F<sunds@asictest.sc.ti.com>E<gt>
-
-Texas Instruments
-
-=cut
-
-sub hostname {
-
-  # method 1 - we already know it
-  return $host if defined $host;
-
-  if ($^O eq 'VMS') {
-
-    # method 2 - no sockets ==> return DECnet node name
-    eval { local $SIG{__DIE__}; $host = (gethostbyname('me'))[0] };
-    if ($@) { return $host = $ENV{'SYS$NODE'}; }
-
-    # method 3 - has someone else done the job already?  It's common for the
-    #    TCP/IP stack to advertise the hostname via a logical name.  (Are
-    #    there any other logicals which TCP/IP stacks use for the host name?)
-    $host = $ENV{'ARPANET_HOST_NAME'}  || $ENV{'INTERNET_HOST_NAME'} ||
-            $ENV{'MULTINET_HOST_NAME'} || $ENV{'UCX$INET_HOST'}      ||
-            $ENV{'TCPWARE_DOMAINNAME'} || $ENV{'NEWS_ADDRESS'};
-    return $host if $host;
-
-    # method 4 - does hostname happen to work?
-    my($rslt) = `hostname`;
-    if ($rslt !~ /IVVERB/) { ($host) = $rslt =~ /^(\S+)/; }
-    return $host if $host;
-
-    # rats!
-    $host = '';
-    Carp::croak "Cannot get host name of local machine";  
-
-  }
-  elsif ($^O eq 'MSWin32') {
-    ($host) = gethostbyname('localhost');
-    chomp($host = `hostname 2> NUL`) unless defined $host;
-    return $host;
-  }
-  else {  # Unix
-
-    # method 2 - syscall is preferred since it avoids tainting problems
-    eval {
-	local $SIG{__DIE__};
-	{
-	    package main;
-	    require "syscall.ph";
-	}
-	$host = "\0" x 65; ## preload scalar
-	syscall(&main::SYS_gethostname, $host, 65) == 0;
-    }
-
-    # method 2a - syscall using systeminfo instead of gethostname
-    #           -- needed on systems like Solaris
-    || eval {
-	local $SIG{__DIE__};
-	{
-	    package main;
-	    require "sys/syscall.ph";
-	    require "sys/systeminfo.ph";
-	}
-	$host = "\0" x 65; ## preload scalar
-	syscall(&main::SYS_systeminfo, &main::SI_HOSTNAME, $host, 65) != -1;
-    }
-
-    # method 3 - trusty old hostname command
-    || eval {
-	local $SIG{__DIE__};
-	$host = `(hostname) 2>/dev/null`; # bsdish
-    }
-
-    # method 4 - sysV uname command (may truncate)
-    || eval {
-	local $SIG{__DIE__};
-	$host = `uname -n 2>/dev/null`; ## sysVish
-    }
-
-    # method 5 - Apollo pre-SR10
-    || eval {
-	local $SIG{__DIE__};
-	($host,$a,$b,$c,$d)=split(/[:\. ]/,`/com/host`,6);
-    }
-
-    # bummer
-    || Carp::croak "Cannot get host name of local machine";  
-
-    # remove garbage 
-    $host =~ tr/\0\r\n//d;
-    $host;
-  }
-}
-
-1;
diff --git a/contrib/perl5/lib/Sys/Syslog.pm b/contrib/perl5/lib/Sys/Syslog.pm
deleted file mode 100644
index e8faac71262e..000000000000
--- a/contrib/perl5/lib/Sys/Syslog.pm
+++ /dev/null
@@ -1,276 +0,0 @@
-package Sys::Syslog;
-require 5.000;
-require Exporter;
-use Carp;
-
-@ISA = qw(Exporter);
-@EXPORT = qw(openlog closelog setlogmask syslog);
-@EXPORT_OK = qw(setlogsock);
-
-use Socket;
-use Sys::Hostname;
-
-# adapted from syslog.pl
-#
-# Tom Christiansen <tchrist@convex.com>
-# modified to use sockets by Larry Wall <lwall@jpl-devvax.jpl.nasa.gov>
-# NOTE: openlog now takes three arguments, just like openlog(3)
-# Modified to add UNIX domain sockets by Sean Robinson <robinson_s@sc.maricopa.edu>
-#  with support from Tim Bunce <Tim.Bunce@ig.co.uk> and the perl5-porters mailing list
-
-# Todo: enable connect to try all three types before failing (auto setlogsock)?
-
-=head1 NAME
-
-Sys::Syslog, openlog, closelog, setlogmask, syslog - Perl interface to the UNIX syslog(3) calls
-
-=head1 SYNOPSIS
-
-    use Sys::Syslog;                          # all except setlogsock, or:
-    use Sys::Syslog qw(:DEFAULT setlogsock);  # default set, plus setlogsock
-
-    setlogsock $sock_type;
-    openlog $ident, $logopt, $facility;
-    syslog $priority, $format, @args;
-    $oldmask = setlogmask $mask_priority;
-    closelog;
-
-=head1 DESCRIPTION
-
-Sys::Syslog is an interface to the UNIX C<syslog(3)> program.
-Call C<syslog()> with a string priority and a list of C<printf()> args
-just like C<syslog(3)>.
-
-Syslog provides the functions:
-
-=over
-
-=item openlog $ident, $logopt, $facility
-
-I<$ident> is prepended to every message.
-I<$logopt> contains zero or more of the words I<pid>, I<ndelay>, I<cons>, I<nowait>.
-I<$facility> specifies the part of the system
-
-=item syslog $priority, $format, @args
-
-If I<$priority> permits, logs I<($format, @args)>
-printed as by C<printf(3V)>, with the addition that I<%m>
-is replaced with C<"$!"> (the latest error message).
-
-=item setlogmask $mask_priority
-
-Sets log mask I<$mask_priority> and returns the old mask.
-
-=item setlogsock $sock_type (added in 5.004_02)
-
-Sets the socket type to be used for the next call to
-C<openlog()> or C<syslog()> and returns TRUE on success,
-undef on failure.
-
-A value of 'unix' will connect to the UNIX domain socket returned by
-C<_PATH_LOG> in F<syslog.ph>.  A value of 'inet' will connect to an
-INET socket returned by getservbyname().  Any other value croaks.
-
-The default is for the INET socket to be used.
-
-=item closelog
-
-Closes the log file.
-
-=back
-
-Note that C<openlog> now takes three arguments, just like C<openlog(3)>.
-
-=head1 EXAMPLES
-
-    openlog($program, 'cons,pid', 'user');
-    syslog('info', 'this is another test');
-    syslog('mail|warning', 'this is a better test: %d', time);
-    closelog();
-
-    syslog('debug', 'this is the last test');
-
-    setlogsock('unix');
-    openlog("$program $$", 'ndelay', 'user');
-    syslog('notice', 'fooprogram: this is really done');
-
-    setlogsock('inet');
-    $! = 55;
-    syslog('info', 'problem was %m'); # %m == $! in syslog(3)
-
-=head1 DEPENDENCIES
-
-B<Sys::Syslog> needs F<syslog.ph>, which can be created with C<h2ph>.
-
-=head1 SEE ALSO
-
-L<syslog(3)>
-
-=head1 AUTHOR
-
-Tom Christiansen E<lt>F<tchrist@perl.com>E<gt> and Larry Wall E<lt>F<larry@wall.org>E<gt>.
-UNIX domain sockets added by Sean Robinson E<lt>F<robinson_s@sc.maricopa.edu>E<gt>
-with support from Tim Bunce <Tim.Bunce@ig.co.uk> and the perl5-porters mailing list.
-
-=cut
-
-require 'syslog.ph';
-
-$maskpri = &LOG_UPTO(&LOG_DEBUG);
-
-sub openlog {
-    ($ident, $logopt, $facility) = @_;  # package vars
-    $lo_pid = $logopt =~ /\bpid\b/;
-    $lo_ndelay = $logopt =~ /\bndelay\b/;
-    $lo_cons = $logopt =~ /\bcons\b/;
-    $lo_nowait = $logopt =~ /\bnowait\b/;
-    &connect if $lo_ndelay;
-} 
-
-sub closelog {
-    $facility = $ident = '';
-    &disconnect;
-} 
-
-sub setlogmask {
-    local($oldmask) = $maskpri;
-    $maskpri = shift;
-    $oldmask;
-}
- 
-sub setlogsock {
-    local($setsock) = shift;
-    &disconnect if $connected;
-    if (lc($setsock) eq 'unix') {
-        if (defined &_PATH_LOG) {
-            $sock_type = 1;
-        } else {
-            return undef;
-        }
-    } elsif (lc($setsock) eq 'inet') {
-        if (getservbyname('syslog','udp')) {
-            undef($sock_type);
-        } else {
-            return undef;
-        }
-    } else {
-        croak "Invalid argument passed to setlogsock; must be 'unix' or 'inet'";
-    }
-    return 1;
-}
-
-sub syslog {
-    local($priority) = shift;
-    local($mask) = shift;
-    local($message, $whoami);
-    local(@words, $num, $numpri, $numfac, $sum);
-    local($facility) = $facility;	# may need to change temporarily.
-
-    croak "syslog: expected both priority and mask" unless $mask && $priority;
-
-    @words = split(/\W+/, $priority, 2);# Allow "level" or "level|facility".
-    undef $numpri;
-    undef $numfac;
-    foreach (@words) {
-	$num = &xlate($_);		# Translate word to number.
-	if (/^kern$/ || $num < 0) {
-	    croak "syslog: invalid level/facility: $_";
-	}
-	elsif ($num <= &LOG_PRIMASK) {
-	    croak "syslog: too many levels given: $_" if defined($numpri);
-	    $numpri = $num;
-	    return 0 unless &LOG_MASK($numpri) & $maskpri;
-	}
-	else {
-	    croak "syslog: too many facilities given: $_" if defined($numfac);
-	    $facility = $_;
-	    $numfac = $num;
-	}
-    }
-
-    croak "syslog: level must be given" unless defined($numpri);
-
-    if (!defined($numfac)) {	# Facility not specified in this call.
-	$facility = 'user' unless $facility;
-	$numfac = &xlate($facility);
-    }
-
-    &connect unless $connected;
-
-    $whoami = $ident;
-
-    if (!$whoami && $mask =~ /^(\S.*?):\s?(.*)/) {
-	$whoami = $1;
-	$mask = $2;
-    } 
-
-    unless ($whoami) {
-	($whoami = getlogin) ||
-	    ($whoami = getpwuid($<)) ||
-		($whoami = 'syslog');
-    }
-
-    $whoami .= "[$$]" if $lo_pid;
-
-    $mask =~ s/%m/$!/g;
-    $mask .= "\n" unless $mask =~ /\n$/;
-    $message = sprintf ($mask, @_);
-
-    $sum = $numpri + $numfac;
-    unless (send(SYSLOG,"<$sum>$whoami: $message\0",0)) {
-	if ($lo_cons) {
-	    if ($pid = fork) {
-		unless ($lo_nowait) {
-		    $died = waitpid($pid, 0);
-		}
-	    }
-	    else {
-		open(CONS,">/dev/console");
-		print CONS "<$facility.$priority>$whoami: $message\r";
-		exit if defined $pid;		# if fork failed, we're parent
-		close CONS;
-	    }
-	}
-    }
-}
-
-sub xlate {
-    local($name) = @_;
-    $name = uc $name;
-    $name = "LOG_$name" unless $name =~ /^LOG_/;
-    $name = "Sys::Syslog::$name";
-    defined &$name ? &$name : -1;
-}
-
-sub connect {
-    unless ($host) {
-	require Sys::Hostname;
-	my($host_uniq) = Sys::Hostname::hostname();
-	($host) = $host_uniq =~ /([A-Za-z0-9_.-]+)/; # allow FQDN (inc _)
-    }
-    unless ( $sock_type ) {
-        my $udp = getprotobyname('udp');
-        my $syslog = getservbyname('syslog','udp');
-        my $this = sockaddr_in($syslog, INADDR_ANY);
-        my $that = sockaddr_in($syslog, inet_aton($host) || croak "Can't lookup $host");
-        socket(SYSLOG,AF_INET,SOCK_DGRAM,$udp)           || croak "socket: $!";
-        connect(SYSLOG,$that)                            || croak "connect: $!";
-    } else {
-        my $syslog = &_PATH_LOG                          || croak "_PATH_LOG not found in syslog.ph";
-        my $that = sockaddr_un($syslog)                  || croak "Can't locate $syslog";
-        socket(SYSLOG,AF_UNIX,SOCK_STREAM,0)             || croak "socket: $!";
-        if (!connect(SYSLOG,$that)) {
-            socket(SYSLOG,AF_UNIX,SOCK_DGRAM,0)          || croak "socket: $!";
-            connect(SYSLOG,$that) || croak "connect: $! (SOCK_DGRAM after trying SOCK_STREAM)";
-        }
-    }
-    local($old) = select(SYSLOG); $| = 1; select($old);
-    $connected = 1;
-}
-
-sub disconnect {
-    close SYSLOG;
-    $connected = 0;
-}
-
-1;
diff --git a/contrib/perl5/myconfig b/contrib/perl5/myconfig
deleted file mode 100755
index c143aea6e8d5..000000000000
--- a/contrib/perl5/myconfig
+++ /dev/null
@@ -1,43 +0,0 @@
-#!/bin/sh
-
-# This script is designed to provide a handy summary of the configuration
-# information being used to build perl. This is especially useful if you
-# are requesting help from comp.lang.perl.misc on usenet or via mail.
-
-if test -f config.sh; then TOP=.;
-elif test -f ../config.sh; then TOP=..;
-elif test -f ../../config.sh; then TOP=../..;
-elif test -f ../../../config.sh; then TOP=../../..;
-elif test -f ../../../../config.sh; then TOP=../../../..;
-else
-	echo "Can't find the perl config.sh file produced by Configure"; exit 1
-fi
-. $TOP/config.sh
-
-# Note that the text lines /^Summary of/ .. /^\s*$/ are copied into Config.pm.
-
-$spitshell <<!GROK!THIS!
-Summary of my $package ($baserev patchlevel $PATCHLEVEL subversion $SUBVERSION) configuration:
-  Platform:
-    osname=$osname, osvers=$osvers, archname=$archname
-    uname='$myuname'
-    hint=$hint, useposix=$useposix, d_sigaction=$d_sigaction
-    usethreads=$usethreads useperlio=$useperlio d_sfio=$d_sfio
-  Compiler:
-    cc='$cc', optimize='$optimize', gccversion=$gccversion
-    cppflags='$cppflags'
-    ccflags ='$ccflags'
-    stdchar='$stdchar', d_stdstdio=$d_stdstdio, usevfork=$usevfork
-    intsize=$intsize, longsize=$longsize, ptrsize=$ptrsize, doublesize=$doublesize
-    d_longlong=$d_longlong, longlongsize=$longlongsize, d_longdbl=$d_longdbl, longdblsize=$longdblsize
-    alignbytes=$alignbytes, usemymalloc=$usemymalloc, prototype=$prototype
-  Linker and Libraries:
-    ld='$ld', ldflags ='$ldflags'
-    libpth=$libpth
-    libs=$libs
-    libc=$libc, so=$so, useshrplib=$useshrplib, libperl=$libperl
-  Dynamic Linking:
-    dlsrc=$dlsrc, dlext=$dlext, d_dlsymun=$d_dlsymun, ccdlflags='$ccdlflags'
-    cccdlflags='$cccdlflags', lddlflags='$lddlflags'
-
-!GROK!THIS!
diff --git a/contrib/perl5/objpp.h b/contrib/perl5/objpp.h
deleted file mode 100644
index dd24e3898125..000000000000
--- a/contrib/perl5/objpp.h
+++ /dev/null
@@ -1,1473 +0,0 @@
-#ifndef __Objpp_h__
-#define __Objpp_h__
-
-#undef  amagic_call
-#define amagic_call       CPerlObj::Perl_amagic_call
-#undef  amagic_cmp
-#define amagic_cmp        CPerlObj::amagic_cmp
-#undef  amagic_cmp_locale
-#define amagic_cmp_locale CPerlObj::amagic_cmp_locale
-#undef  Gv_AMupdate
-#define Gv_AMupdate       CPerlObj::Perl_Gv_AMupdate
-#undef  add_data
-#define add_data          CPerlObj::add_data
-#undef  ao
-#define ao                CPerlObj::ao
-#undef  append_elem
-#define append_elem       CPerlObj::Perl_append_elem
-#undef  append_list
-#define append_list       CPerlObj::Perl_append_list
-#undef  apply
-#define apply             CPerlObj::Perl_apply
-#undef  asIV
-#define asIV              CPerlObj::asIV
-#undef  asUV
-#define asUV              CPerlObj::asUV
-#undef  assertref
-#define assertref         CPerlObj::Perl_assertref
-#undef  av_clear
-#define av_clear          CPerlObj::Perl_av_clear
-#undef  av_extend
-#define av_extend         CPerlObj::Perl_av_extend
-#undef  av_fake
-#define av_fake           CPerlObj::Perl_av_fake
-#undef  av_fetch
-#define av_fetch          CPerlObj::Perl_av_fetch
-#undef  av_fill
-#define av_fill           CPerlObj::Perl_av_fill
-#undef  av_len
-#define av_len            CPerlObj::Perl_av_len
-#undef  av_make
-#define av_make           CPerlObj::Perl_av_make
-#undef  av_pop
-#define av_pop            CPerlObj::Perl_av_pop
-#undef  av_push
-#define av_push           CPerlObj::Perl_av_push
-#undef  av_shift
-#define av_shift          CPerlObj::Perl_av_shift
-#undef  av_reify
-#define av_reify          CPerlObj::Perl_av_reify
-#undef  av_store
-#define av_store          CPerlObj::Perl_av_store
-#undef  av_undef 
-#define av_undef          CPerlObj::Perl_av_undef 
-#undef  av_unshift
-#define av_unshift        CPerlObj::Perl_av_unshift
-#undef  avhv_keys
-#define avhv_keys         CPerlObj::Perl_avhv_keys
-#undef  avhv_fetch_ent
-#define avhv_fetch_ent    CPerlObj::Perl_avhv_fetch_ent
-#undef  avhv_exists_ent
-#define avhv_exists_ent   CPerlObj::Perl_avhv_exists_ent
-#undef  avhv_index_sv
-#define avhv_index_sv     CPerlObj::avhv_index_sv
-#undef  avhv_iternext
-#define avhv_iternext     CPerlObj::Perl_avhv_iternext
-#undef  avhv_iterval
-#define avhv_iterval      CPerlObj::Perl_avhv_iterval
-#undef  bad_type
-#define bad_type          CPerlObj::bad_type
-#undef  bind_match
-#define bind_match        CPerlObj::Perl_bind_match
-#undef  block_end
-#define block_end         CPerlObj::Perl_block_end
-#undef  block_gimme
-#define block_gimme       CPerlObj::Perl_block_gimme
-#undef  block_start
-#define block_start       CPerlObj::Perl_block_start
-#undef  bset_obj_store
-#define bset_obj_store    CPerlObj::Perl_bset_obj_store
-#undef  byterun
-#define byterun           CPerlObj::Perl_byterun
-#undef  call_list
-#define call_list         CPerlObj::Perl_call_list
-#undef  cando
-#define cando             CPerlObj::Perl_cando
-#undef  cast_ulong
-#define cast_ulong        CPerlObj::cast_ulong
-#undef  checkcomma
-#define checkcomma        CPerlObj::Perl_checkcomma
-#undef  check_uni
-#define check_uni         CPerlObj::Perl_check_uni
-#undef  ck_anoncode
-#define ck_anoncode       CPerlObj::Perl_ck_anoncode
-#undef  ck_bitop
-#define ck_bitop          CPerlObj::Perl_ck_bitop
-#undef  ck_concat
-#define ck_concat         CPerlObj::Perl_ck_concat
-#undef  ck_delete
-#define ck_delete         CPerlObj::Perl_ck_delete
-#undef  ck_eof
-#define ck_eof            CPerlObj::Perl_ck_eof
-#undef  ck_eval
-#define ck_eval           CPerlObj::Perl_ck_eval
-#undef  ck_exec
-#define ck_exec           CPerlObj::Perl_ck_exec
-#undef  ck_exists
-#define ck_exists         CPerlObj::Perl_ck_exists
-#undef  ck_formline
-#define ck_formline       CPerlObj::Perl_ck_formline
-#undef  ck_ftst
-#define ck_ftst           CPerlObj::Perl_ck_ftst
-#undef  ck_fun
-#define ck_fun            CPerlObj::Perl_ck_fun
-#undef  ck_fun_locale
-#define ck_fun_locale     CPerlObj::Perl_ck_fun_locale
-#undef  ck_glob
-#define ck_glob           CPerlObj::Perl_ck_glob
-#undef  ck_grep
-#define ck_grep           CPerlObj::Perl_ck_grep
-#undef  ck_gvconst
-#define ck_gvconst        CPerlObj::Perl_ck_gvconst
-#undef  ck_index
-#define ck_index          CPerlObj::Perl_ck_index
-#undef  ck_lengthconst
-#define ck_lengthconst    CPerlObj::Perl_ck_lengthconst
-#undef  ck_lfun
-#define ck_lfun           CPerlObj::Perl_ck_lfun
-#undef  ck_listiob
-#define ck_listiob        CPerlObj::Perl_ck_listiob
-#undef  ck_match
-#define ck_match          CPerlObj::Perl_ck_match
-#undef  ck_null
-#define ck_null           CPerlObj::Perl_ck_null
-#undef  ck_repeat
-#define ck_repeat         CPerlObj::Perl_ck_repeat
-#undef  ck_require
-#define ck_require        CPerlObj::Perl_ck_require
-#undef  ck_retarget
-#define ck_retarget       CPerlObj::Perl_ck_retarget
-#undef  ck_rfun
-#define ck_rfun           CPerlObj::Perl_ck_rfun
-#undef  ck_rvconst
-#define ck_rvconst        CPerlObj::Perl_ck_rvconst
-#undef  ck_scmp
-#define ck_scmp           CPerlObj::Perl_ck_scmp
-#undef  ck_select
-#define ck_select         CPerlObj::Perl_ck_select
-#undef  ck_shift
-#define ck_shift          CPerlObj::Perl_ck_shift
-#undef  ck_sort
-#define ck_sort           CPerlObj::Perl_ck_sort
-#undef  ck_spair
-#define ck_spair          CPerlObj::Perl_ck_spair
-#undef  ck_split
-#define ck_split          CPerlObj::Perl_ck_split
-#undef  ck_subr
-#define ck_subr           CPerlObj::Perl_ck_subr
-#undef  ck_svconst
-#define ck_svconst        CPerlObj::Perl_ck_svconst
-#undef  ck_trunc
-#define ck_trunc          CPerlObj::Perl_ck_trunc
-#undef  convert
-#define convert           CPerlObj::Perl_convert
-#undef  cpytill
-#define cpytill           CPerlObj::Perl_cpytill
-#undef  croak
-#define croak             CPerlObj::Perl_croak
-#undef  cv_ckproto
-#define cv_ckproto        CPerlObj::Perl_cv_ckproto
-#undef  cv_clone
-#define cv_clone          CPerlObj::Perl_cv_clone
-#undef  cv_clone2
-#define cv_clone2         CPerlObj::cv_clone2
-#undef  cv_const_sv
-#define cv_const_sv       CPerlObj::Perl_cv_const_sv
-#undef  cv_undef 
-#define cv_undef          CPerlObj::Perl_cv_undef 
-#undef  cx_dump
-#define cx_dump           CPerlObj::Perl_cx_dump
-#undef  cxinc
-#define cxinc             CPerlObj::Perl_cxinc
-#undef  deb
-#define deb               CPerlObj::Perl_deb
-#undef  deb_growlevel
-#define deb_growlevel     CPerlObj::Perl_deb_growlevel
-#undef  debop
-#define debop             CPerlObj::Perl_debop
-#undef  debstackptrs
-#define debstackptrs      CPerlObj::Perl_debstackptrs
-#undef  debprof
-#define debprof           CPerlObj::debprof
-#undef  debprofdump
-#define debprofdump       CPerlObj::Perl_debprofdump
-#undef  debstack
-#define debstack          CPerlObj::Perl_debstack
-#undef  del_sv
-#define del_sv            CPerlObj::del_sv
-#undef  del_xiv
-#define del_xiv           CPerlObj::del_xiv
-#undef  del_xnv
-#define del_xnv           CPerlObj::del_xnv
-#undef  del_xpv
-#define del_xpv           CPerlObj::del_xpv
-#undef  del_xrv
-#define del_xrv           CPerlObj::del_xrv
-#undef  delimcpy
-#define delimcpy          CPerlObj::Perl_delimcpy
-#undef  depcom
-#define depcom            CPerlObj::depcom
-#undef  deprecate
-#define deprecate         CPerlObj::Perl_deprecate
-#undef  die
-#define die               CPerlObj::Perl_die
-#undef  die_where
-#define die_where         CPerlObj::Perl_die_where
-#undef  div128
-#define div128            CPerlObj::div128
-#undef  doencodes
-#define doencodes         CPerlObj::doencodes
-#undef  doeval
-#define doeval            CPerlObj::doeval
-#undef  doform
-#define doform            CPerlObj::doform
-#undef  dofindlabel
-#define dofindlabel       CPerlObj::Perl_dofindlabel
-#undef  doparseform
-#define doparseform       CPerlObj::doparseform
-#undef  dopoptoeval
-#define dopoptoeval       CPerlObj::Perl_dopoptoeval
-#undef  dopoptolabel
-#define dopoptolabel      CPerlObj::dopoptolabel
-#undef  dopoptoloop
-#define dopoptoloop       CPerlObj::dopoptoloop
-#undef  dopoptosub
-#define dopoptosub        CPerlObj::dopoptosub
-#undef  dopoptosub_at
-#define dopoptosub_at     CPerlObj::dopoptosub_at
-#undef  dounwind
-#define dounwind          CPerlObj::Perl_dounwind
-#undef  do_aexec
-#define do_aexec          CPerlObj::Perl_do_aexec
-#undef  do_aspawn
-#define do_aspawn         CPerlObj::do_aspawn
-#undef  do_binmode
-#define do_binmode        CPerlObj::Perl_do_binmode
-#undef  do_chop
-#define do_chop           CPerlObj::Perl_do_chop
-#undef  do_close
-#define do_close          CPerlObj::Perl_do_close
-#undef  do_eof
-#define do_eof            CPerlObj::Perl_do_eof
-#undef  do_exec
-#define do_exec           CPerlObj::Perl_do_exec
-#undef  do_execfree
-#define do_execfree       CPerlObj::Perl_do_execfree
-#undef  do_ipcctl
-#define do_ipcctl         CPerlObj::Perl_do_ipcctl
-#undef  do_ipcget
-#define do_ipcget         CPerlObj::Perl_do_ipcget
-#undef  do_join
-#define do_join           CPerlObj::Perl_do_join
-#undef  do_kv
-#define do_kv             CPerlObj::Perl_do_kv
-#undef  do_msgrcv
-#define do_msgrcv         CPerlObj::Perl_do_msgrcv
-#undef  do_msgsnd
-#define do_msgsnd         CPerlObj::Perl_do_msgsnd
-#undef  do_open
-#define do_open           CPerlObj::Perl_do_open
-#undef  do_pipe
-#define do_pipe           CPerlObj::Perl_do_pipe
-#undef  do_print
-#define do_print          CPerlObj::Perl_do_print
-#undef  do_readline
-#define do_readline       CPerlObj::Perl_do_readline
-#undef  do_chomp
-#define do_chomp          CPerlObj::Perl_do_chomp
-#undef  do_seek
-#define do_seek           CPerlObj::Perl_do_seek
-#undef  do_semop
-#define do_semop          CPerlObj::Perl_do_semop
-#undef  do_shmio
-#define do_shmio          CPerlObj::Perl_do_shmio
-#undef  do_sprintf
-#define do_sprintf        CPerlObj::Perl_do_sprintf
-#undef  do_sysseek
-#define do_sysseek        CPerlObj::Perl_do_sysseek
-#undef  do_tell
-#define do_tell           CPerlObj::Perl_do_tell
-#undef  do_trans
-#define do_trans          CPerlObj::Perl_do_trans
-#undef  do_vecset
-#define do_vecset         CPerlObj::Perl_do_vecset
-#undef  do_vop
-#define do_vop            CPerlObj::Perl_do_vop
-#undef  dofile
-#define dofile            CPerlObj::Perl_dofile
-#undef  do_clean_all
-#define do_clean_all      CPerlObj::do_clean_all
-#undef  do_clean_named_objs
-#define do_clean_named_objs   CPerlObj::do_clean_named_objs
-#undef  do_clean_objs
-#define do_clean_objs     CPerlObj::do_clean_objs
-#undef  do_report_used
-#define do_report_used    CPerlObj::do_report_used
-#undef  docatch
-#define docatch           CPerlObj::docatch
-#undef  dowantarray
-#define dowantarray       CPerlObj::Perl_dowantarray
-#undef  dump
-#define dump              CPerlObj::dump
-#undef  dump_all
-#define dump_all          CPerlObj::Perl_dump_all
-#undef  dump_eval
-#define dump_eval         CPerlObj::Perl_dump_eval
-#undef  dump_fds
-#define dump_fds          CPerlObj::Perl_dump_fds
-#undef  dump_form
-#define dump_form         CPerlObj::Perl_dump_form
-#undef  dump_gv
-#define dump_gv           CPerlObj::Perl_dump_gv
-#undef  dump_mstats
-#define dump_mstats       CPerlObj::Perl_dump_mstats
-#undef  dump_op
-#define dump_op           CPerlObj::Perl_dump_op
-#undef  dump_pm
-#define dump_pm           CPerlObj::Perl_dump_pm
-#undef  dump_packsubs
-#define dump_packsubs     CPerlObj::Perl_dump_packsubs
-#undef  dump_sub
-#define dump_sub          CPerlObj::Perl_dump_sub
-#undef  dumpuntil
-#define dumpuntil         CPerlObj::dumpuntil
-#undef  fbm_compile
-#define fbm_compile       CPerlObj::Perl_fbm_compile
-#undef  fbm_instr
-#define fbm_instr         CPerlObj::Perl_fbm_instr
-#undef  filter_add
-#define filter_add        CPerlObj::Perl_filter_add
-#undef  filter_del
-#define filter_del        CPerlObj::Perl_filter_del
-#undef  filter_gets
-#define filter_gets       CPerlObj::filter_gets
-#undef  filter_read
-#define filter_read       CPerlObj::Perl_filter_read
-#undef  find_beginning
-#define find_beginning    CPerlObj::find_beginning
-#undef  find_script
-#define find_script       CPerlObj::Perl_find_script
-#undef  forbid_setid
-#define forbid_setid      CPerlObj::forbid_setid
-#undef  force_ident
-#define force_ident       CPerlObj::Perl_force_ident
-#undef  force_list
-#define force_list        CPerlObj::Perl_force_list
-#undef  force_next
-#define force_next        CPerlObj::Perl_force_next
-#undef  force_word
-#define force_word        CPerlObj::Perl_force_word
-#undef  force_version
-#define force_version     CPerlObj::force_version
-#undef  form
-#define form              CPerlObj::Perl_form
-#undef  fold_constants
-#define fold_constants    CPerlObj::Perl_fold_constants
-#undef  fprintf
-#define fprintf           CPerlObj::fprintf
-#undef  free_tmps
-#define free_tmps         CPerlObj::Perl_free_tmps
-#undef  gen_constant_list
-#define gen_constant_list CPerlObj::Perl_gen_constant_list
-#undef  get_db_sub
-#define get_db_sub        CPerlObj::get_db_sub
-#undef  get_op_descs
-#define get_op_descs      CPerlObj::Perl_get_op_descs
-#undef  get_op_names
-#define get_op_names      CPerlObj::Perl_get_op_names
-#undef  get_no_modify
-#define get_no_modify     CPerlObj::Perl_get_no_modify
-#undef  get_opargs
-#define get_opargs        CPerlObj::Perl_get_opargs
-#undef  get_specialsv_list
-#define get_specialsv_list CPerlObj::Perl_get_specialsv_list
-#undef  get_vtbl
-#define get_vtbl          CPerlObj::Perl_get_vtbl
-#undef  getlogin
-#define getlogin          CPerlObj::getlogin
-#undef  gp_free
-#define gp_free           CPerlObj::Perl_gp_free
-#undef  gp_ref
-#define gp_ref            CPerlObj::Perl_gp_ref
-#undef  gv_autoload4
-#define gv_autoload4      CPerlObj::Perl_gv_autoload4
-#undef  gv_AVadd
-#define gv_AVadd          CPerlObj::Perl_gv_AVadd
-#undef  gv_HVadd
-#define gv_HVadd          CPerlObj::Perl_gv_HVadd
-#undef  gv_IOadd
-#define gv_IOadd          CPerlObj::Perl_gv_IOadd
-#undef  gv_check
-#define gv_check          CPerlObj::Perl_gv_check
-#undef  gv_efullname
-#define gv_efullname      CPerlObj::Perl_gv_efullname
-#undef  gv_efullname3
-#define gv_efullname3     CPerlObj::Perl_gv_efullname3
-#undef  gv_ename
-#define gv_ename          CPerlObj::gv_ename
-#undef  gv_fetchfile
-#define gv_fetchfile      CPerlObj::Perl_gv_fetchfile
-#undef  gv_fetchmeth
-#define gv_fetchmeth      CPerlObj::Perl_gv_fetchmeth
-#undef  gv_fetchmethod
-#define gv_fetchmethod    CPerlObj::Perl_gv_fetchmethod
-#undef  gv_fetchmethod_autoload
-#define gv_fetchmethod_autoload  CPerlObj::Perl_gv_fetchmethod_autoload
-#undef  gv_fetchpv
-#define gv_fetchpv        CPerlObj::Perl_gv_fetchpv
-#undef  gv_fullname
-#define gv_fullname       CPerlObj::Perl_gv_fullname
-#undef  gv_fullname3
-#define gv_fullname3      CPerlObj::Perl_gv_fullname3
-#undef  gv_init
-#define gv_init           CPerlObj::Perl_gv_init
-#undef  gv_init_sv
-#define gv_init_sv        CPerlObj::gv_init_sv
-#undef  gv_stashpv
-#define gv_stashpv        CPerlObj::Perl_gv_stashpv
-#undef  gv_stashpvn
-#define gv_stashpvn       CPerlObj::Perl_gv_stashpvn
-#undef  gv_stashsv
-#define gv_stashsv        CPerlObj::Perl_gv_stashsv
-#undef  he_delayfree
-#define he_delayfree      CPerlObj::Perl_he_delayfree
-#undef  he_free
-#define he_free           CPerlObj::Perl_he_free
-#undef  hfreeentries
-#define hfreeentries      CPerlObj::hfreeentries
-#undef  hoistmust
-#define hoistmust         CPerlObj::Perl_hoistmust
-#undef  hsplit
-#define hsplit            CPerlObj::hsplit
-#undef  hv_clear
-#define hv_clear          CPerlObj::Perl_hv_clear
-#undef  hv_delayfree_ent
-#define hv_delayfree_ent  CPerlObj::Perl_hv_delayfree_ent
-#undef  hv_delete
-#define hv_delete         CPerlObj::Perl_hv_delete
-#undef  hv_delete_ent
-#define hv_delete_ent     CPerlObj::Perl_hv_delete_ent
-#undef  hv_exists
-#define hv_exists         CPerlObj::Perl_hv_exists
-#undef  hv_exists_ent
-#define hv_exists_ent     CPerlObj::Perl_hv_exists_ent
-#undef  hv_free_ent
-#define hv_free_ent       CPerlObj::Perl_hv_free_ent
-#undef  hv_fetch
-#define hv_fetch          CPerlObj::Perl_hv_fetch
-#undef  hv_fetch_ent
-#define hv_fetch_ent      CPerlObj::Perl_hv_fetch_ent
-#undef  hv_iterinit
-#define hv_iterinit       CPerlObj::Perl_hv_iterinit
-#undef  hv_iterkey
-#define hv_iterkey        CPerlObj::Perl_hv_iterkey
-#undef  hv_iterkeysv
-#define hv_iterkeysv      CPerlObj::Perl_hv_iterkeysv
-#undef  hv_iternext
-#define hv_iternext       CPerlObj::Perl_hv_iternext
-#undef  hv_iternextsv
-#define hv_iternextsv     CPerlObj::Perl_hv_iternextsv
-#undef  hv_iterval
-#define hv_iterval        CPerlObj::Perl_hv_iterval
-#undef  hv_ksplit
-#define hv_ksplit         CPerlObj::Perl_hv_ksplit
-#undef  hv_magic
-#define hv_magic          CPerlObj::Perl_hv_magic
-#undef  hv_store
-#define hv_store          CPerlObj::Perl_hv_store
-#undef  hv_store_ent
-#define hv_store_ent      CPerlObj::Perl_hv_store_ent
-#undef  hv_undef 
-#define hv_undef          CPerlObj::Perl_hv_undef 
-#undef  ibcmp
-#define ibcmp             CPerlObj::Perl_ibcmp
-#undef  ibcmp_locale
-#define ibcmp_locale      CPerlObj::Perl_ibcmp_locale
-#undef  incpush
-#define incpush           CPerlObj::incpush
-#undef  incline
-#define incline           CPerlObj::incline
-#undef  incl_perldb
-#define incl_perldb       CPerlObj::incl_perldb
-#undef  ingroup
-#define ingroup           CPerlObj::Perl_ingroup
-#undef  init_debugger
-#define init_debugger     CPerlObj::init_debugger
-#undef  init_ids
-#define init_ids          CPerlObj::init_ids
-#undef  init_interp
-#define init_interp       CPerlObj::init_interp
-#undef  init_main_thread
-#define init_main_thread  CPerlObj::init_main_thread
-#undef  init_main_stash
-#define init_main_stash   CPerlObj::init_main_stash
-#undef  init_lexer
-#define init_lexer        CPerlObj::init_lexer
-#undef  init_perllib
-#define init_perllib      CPerlObj::init_perllib
-#undef  init_predump_symbols
-#define init_predump_symbols  CPerlObj::init_predump_symbols
-#undef  init_postdump_symbols
-#define init_postdump_symbols  CPerlObj::init_postdump_symbols
-#undef  init_stacks
-#define init_stacks       CPerlObj::Perl_init_stacks
-#undef  intro_my
-#define intro_my          CPerlObj::Perl_intro_my
-#undef  nuke_stacks
-#define nuke_stacks       CPerlObj::nuke_stacks
-#undef  instr
-#define instr             CPerlObj::Perl_instr
-#undef  intuit_method
-#define intuit_method     CPerlObj::intuit_method
-#undef  intuit_more
-#define intuit_more       CPerlObj::Perl_intuit_more
-#undef  invert
-#define invert            CPerlObj::Perl_invert
-#undef  io_close
-#define io_close          CPerlObj::Perl_io_close
-#undef  is_an_int
-#define is_an_int         CPerlObj::is_an_int
-#undef  isa_lookup
-#define isa_lookup        CPerlObj::isa_lookup
-#undef  jmaybe
-#define jmaybe            CPerlObj::Perl_jmaybe
-#undef  keyword
-#define keyword           CPerlObj::Perl_keyword
-#undef  leave_scope
-#define leave_scope       CPerlObj::Perl_leave_scope
-#undef  lex_end
-#define lex_end           CPerlObj::Perl_lex_end
-#undef  lex_start
-#define lex_start         CPerlObj::Perl_lex_start
-#undef  linklist
-#define linklist          CPerlObj::Perl_linklist
-#undef  list
-#define list              CPerlObj::Perl_list
-#undef  list_assignment
-#define list_assignment   CPerlObj::list_assignment
-#undef  listkids
-#define listkids          CPerlObj::Perl_listkids
-#undef  lop
-#define lop               CPerlObj::lop
-#undef  localize
-#define localize          CPerlObj::Perl_localize
-#undef  looks_like_number
-#define looks_like_number CPerlObj::Perl_looks_like_number
-#undef  magic_clearenv
-#define magic_clearenv    CPerlObj::Perl_magic_clearenv
-#undef  magic_clear_all_env
-#define magic_clear_all_env CPerlObj::Perl_magic_clear_all_env
-#undef  magic_clearpack
-#define magic_clearpack   CPerlObj::Perl_magic_clearpack
-#undef  magic_clearsig
-#define magic_clearsig    CPerlObj::Perl_magic_clearsig
-#undef  magic_existspack
-#define magic_existspack  CPerlObj::Perl_magic_existspack
-#undef  magic_freeregexp
-#define magic_freeregexp  CPerlObj::Perl_magic_freeregexp
-#undef  magic_get
-#define magic_get         CPerlObj::Perl_magic_get
-#undef  magic_getarylen
-#define magic_getarylen   CPerlObj::Perl_magic_getarylen
-#undef  magic_getdefelem
-#define magic_getdefelem  CPerlObj::Perl_magic_getdefelem
-#undef  magic_getpack
-#define magic_getpack     CPerlObj::Perl_magic_getpack
-#undef  magic_getglob
-#define magic_getglob     CPerlObj::Perl_magic_getglob
-#undef  magic_getnkeys
-#define magic_getnkeys    CPerlObj::Perl_magic_getnkeys
-#undef  magic_getpos
-#define magic_getpos      CPerlObj::Perl_magic_getpos
-#undef  magic_getsig
-#define magic_getsig      CPerlObj::Perl_magic_getsig
-#undef  magic_getsubstr
-#define magic_getsubstr   CPerlObj::Perl_magic_getsubstr
-#undef  magic_gettaint
-#define magic_gettaint    CPerlObj::Perl_magic_gettaint
-#undef  magic_getuvar
-#define magic_getuvar     CPerlObj::Perl_magic_getuvar
-#undef  magic_getvec
-#define magic_getvec     CPerlObj::Perl_magic_getvec
-#undef  magic_len
-#define magic_len         CPerlObj::Perl_magic_len
-#undef  magic_methcall
-#define magic_methcall    CPerlObj::magic_methcall
-#undef  magic_methpack
-#define magic_methpack    CPerlObj::magic_methpack
-#undef  magic_nextpack
-#define magic_nextpack    CPerlObj::Perl_magic_nextpack
-#undef  magic_set
-#define magic_set         CPerlObj::Perl_magic_set
-#undef  magic_set_all_env
-#define magic_set_all_env CPerlObj::Perl_magic_set_all_env
-#undef  magic_setamagic
-#define magic_setamagic   CPerlObj::Perl_magic_setamagic
-#undef  magic_setarylen
-#define magic_setarylen   CPerlObj::Perl_magic_setarylen
-#undef  magic_setbm
-#define magic_setbm       CPerlObj::Perl_magic_setbm
-#undef  magic_setcollxfrm
-#define magic_setcollxfrm CPerlObj::Perl_magic_setcollxfrm
-#undef  magic_setdbline
-#define magic_setdbline   CPerlObj::Perl_magic_setdbline
-#undef  magic_setdefelem
-#define magic_setdefelem  CPerlObj::Perl_magic_setdefelem
-#undef  magic_setenv
-#define magic_setenv      CPerlObj::Perl_magic_setenv
-#undef  magic_setfm
-#define magic_setfm       CPerlObj::Perl_magic_setfm
-#undef  magic_setisa
-#define magic_setisa      CPerlObj::Perl_magic_setisa
-#undef  magic_setglob
-#define magic_setglob     CPerlObj::Perl_magic_setglob
-#undef  magic_setmglob
-#define magic_setmglob    CPerlObj::Perl_magic_setmglob
-#undef  magic_setnkeys
-#define magic_setnkeys    CPerlObj::Perl_magic_setnkeys
-#undef  magic_setpack
-#define magic_setpack     CPerlObj::Perl_magic_setpack
-#undef  magic_setpos
-#define magic_setpos      CPerlObj::Perl_magic_setpos
-#undef  magic_setsig
-#define magic_setsig      CPerlObj::Perl_magic_setsig
-#undef  magic_setsubstr
-#define magic_setsubstr   CPerlObj::Perl_magic_setsubstr
-#undef  magic_settaint
-#define magic_settaint    CPerlObj::Perl_magic_settaint
-#undef  magic_setuvar
-#define magic_setuvar     CPerlObj::Perl_magic_setuvar
-#undef  magic_setvec
-#define magic_setvec      CPerlObj::Perl_magic_setvec
-#undef  magic_sizepack
-#define magic_sizepack    CPerlObj::Perl_magic_sizepack
-#undef  magic_unchain
-#define magic_unchain     CPerlObj::Perl_magic_unchain
-#undef  magic_wipepack
-#define magic_wipepack    CPerlObj::Perl_magic_wipepack
-#undef  magicname
-#define magicname         CPerlObj::Perl_magicname
-#undef  malloced_size
-#define malloced_size     CPerlObj::Perl_malloced_size
-#undef  markstack_grow
-#define markstack_grow    CPerlObj::Perl_markstack_grow
-#undef  markstack_ptr
-#define markstack_ptr     CPerlObj::Perl_markstack_ptr
-#undef  mess
-#define mess              CPerlObj::Perl_mess
-#undef  mess_alloc
-#define mess_alloc        CPerlObj::mess_alloc
-#undef  mem_collxfrm
-#define mem_collxfrm      CPerlObj::Perl_mem_collxfrm
-#undef  mg_clear
-#define mg_clear          CPerlObj::Perl_mg_clear
-#undef  mg_copy
-#define mg_copy           CPerlObj::Perl_mg_copy
-#undef  mg_find
-#define mg_find           CPerlObj::Perl_mg_find
-#undef  mg_free
-#define mg_free           CPerlObj::Perl_mg_free
-#undef  mg_get
-#define mg_get            CPerlObj::Perl_mg_get
-#undef  mg_length
-#define mg_length         CPerlObj::Perl_mg_length
-#undef  mg_magical
-#define mg_magical        CPerlObj::Perl_mg_magical
-#undef  mg_set
-#define mg_set            CPerlObj::Perl_mg_set
-#undef  mg_size
-#define mg_size           CPerlObj::Perl_mg_size
-#undef  missingterm
-#define missingterm       CPerlObj::missingterm
-#undef  mod
-#define mod               CPerlObj::Perl_mod
-#undef  modkids
-#define modkids           CPerlObj::Perl_modkids
-#undef  moreswitches
-#define moreswitches      CPerlObj::Perl_moreswitches
-#undef  more_sv
-#define more_sv           CPerlObj::more_sv
-#undef  more_xiv
-#define more_xiv          CPerlObj::more_xiv
-#undef  more_xnv
-#define more_xnv          CPerlObj::more_xnv
-#undef  more_xpv
-#define more_xpv          CPerlObj::more_xpv
-#undef  more_xrv
-#define more_xrv          CPerlObj::more_xrv
-#undef  mstats
-#define mstats            CPerlObj::mstats
-#undef  mul128
-#define mul128            CPerlObj::mul128
-#undef  my
-#define my                CPerlObj::Perl_my
-#undef  my_bcopy
-#define my_bcopy          CPerlObj::Perl_my_bcopy
-#undef  my_bzero
-#define my_bzero          CPerlObj::Perl_my_bzero
-#undef  my_exit
-#define my_exit           CPerlObj::Perl_my_exit
-#undef  my_exit_jump
-#define my_exit_jump      CPerlObj::my_exit_jump
-#undef  my_failure_exit
-#define my_failure_exit   CPerlObj::Perl_my_failure_exit
-#undef  my_lstat
-#define my_lstat          CPerlObj::Perl_my_lstat
-#undef  my_memcmp
-#define my_memcmp         CPerlObj::Perl_my_memcmp
-#undef  my_memset
-#define my_memset         CPerlObj::Perl_my_memset
-#undef  my_pclose
-#define my_pclose         CPerlObj::Perl_my_pclose
-#undef  my_popen
-#define my_popen          CPerlObj::Perl_my_popen
-#undef  my_safemalloc
-#define my_safemalloc     CPerlObj::my_safemalloc
-#undef  my_setenv
-#define my_setenv         CPerlObj::Perl_my_setenv
-#undef  my_stat
-#define my_stat           CPerlObj::Perl_my_stat
-#undef  my_swap
-#define my_swap           CPerlObj::my_swap
-#undef  my_htonl
-#define my_htonl          CPerlObj::my_htonl
-#undef  my_ntohl
-#define my_ntohl          CPerlObj::my_ntohl
-#undef  my_unexec
-#define my_unexec         CPerlObj::Perl_my_unexec
-#undef  newANONLIST
-#define newANONLIST       CPerlObj::Perl_newANONLIST
-#undef  newANONHASH
-#define newANONHASH       CPerlObj::Perl_newANONHASH
-#undef  newANONSUB
-#define newANONSUB        CPerlObj::Perl_newANONSUB
-#undef  newASSIGNOP
-#define newASSIGNOP       CPerlObj::Perl_newASSIGNOP
-#undef  newCONDOP
-#define newCONDOP         CPerlObj::Perl_newCONDOP
-#undef  newCONSTSUB
-#define newCONSTSUB       CPerlObj::Perl_newCONSTSUB
-#undef  newDEFSVOP
-#define newDEFSVOP        CPerlObj::newDEFSVOP
-#undef  newFORM
-#define newFORM           CPerlObj::Perl_newFORM
-#undef  newFOROP
-#define newFOROP          CPerlObj::Perl_newFOROP
-#undef  newLOGOP
-#define newLOGOP          CPerlObj::Perl_newLOGOP
-#undef  newLOOPEX
-#define newLOOPEX         CPerlObj::Perl_newLOOPEX
-#undef  newLOOPOP
-#define newLOOPOP         CPerlObj::Perl_newLOOPOP
-#undef  newMETHOD
-#define newMETHOD         CPerlObj::Perl_newMETHOD
-#undef  newNULLLIST
-#define newNULLLIST       CPerlObj::Perl_newNULLLIST
-#undef  newOP
-#define newOP             CPerlObj::Perl_newOP
-#undef  newPROG
-#define newPROG           CPerlObj::Perl_newPROG
-#undef  newRANGE
-#define newRANGE          CPerlObj::Perl_newRANGE
-#undef  newSLICEOP
-#define newSLICEOP        CPerlObj::Perl_newSLICEOP
-#undef  newSTATEOP
-#define newSTATEOP        CPerlObj::Perl_newSTATEOP
-#undef  newSUB
-#define newSUB            CPerlObj::Perl_newSUB
-#undef  newXS
-#define newXS             CPerlObj::Perl_newXS
-#undef  newXSUB
-#define newXSUB           CPerlObj::Perl_newXSUB
-#undef  newAV
-#define newAV             CPerlObj::Perl_newAV
-#undef  newAVREF
-#define newAVREF          CPerlObj::Perl_newAVREF
-#undef  newBINOP
-#define newBINOP          CPerlObj::Perl_newBINOP
-#undef  newCVREF
-#define newCVREF          CPerlObj::Perl_newCVREF
-#undef  newCVOP
-#define newCVOP           CPerlObj::Perl_newCVOP
-#undef  newGVOP
-#define newGVOP           CPerlObj::Perl_newGVOP
-#undef  newGVgen
-#define newGVgen          CPerlObj::Perl_newGVgen
-#undef  newGVREF
-#define newGVREF          CPerlObj::Perl_newGVREF
-#undef  newHVREF
-#define newHVREF          CPerlObj::Perl_newHVREF
-#undef  newHV
-#define newHV             CPerlObj::Perl_newHV
-#undef  newHVhv
-#define newHVhv           CPerlObj::Perl_newHVhv
-#undef  newIO
-#define newIO             CPerlObj::Perl_newIO
-#undef  newLISTOP
-#define newLISTOP         CPerlObj::Perl_newLISTOP
-#undef  newPMOP
-#define newPMOP           CPerlObj::Perl_newPMOP
-#undef  newPVOP
-#define newPVOP           CPerlObj::Perl_newPVOP
-#undef  newRV
-#define newRV             CPerlObj::Perl_newRV
-#undef  Perl_newRV_noinc
-#define Perl_newRV_noinc  CPerlObj::Perl_newRV_noinc
-#undef  newSV
-#define newSV             CPerlObj::Perl_newSV
-#undef  newSVREF
-#define newSVREF          CPerlObj::Perl_newSVREF
-#undef  newSVOP
-#define newSVOP           CPerlObj::Perl_newSVOP
-#undef  newSViv
-#define newSViv           CPerlObj::Perl_newSViv
-#undef  newSVnv
-#define newSVnv           CPerlObj::Perl_newSVnv
-#undef  newSVpv
-#define newSVpv           CPerlObj::Perl_newSVpv
-#undef  newSVpvf
-#define newSVpvf          CPerlObj::Perl_newSVpvf
-#undef  newSVpvn
-#define newSVpvn          CPerlObj::Perl_newSVpvn
-#undef  newSVrv
-#define newSVrv           CPerlObj::Perl_newSVrv
-#undef  newSVsv
-#define newSVsv           CPerlObj::Perl_newSVsv
-#undef  newUNOP
-#define newUNOP           CPerlObj::Perl_newUNOP
-#undef  newWHILEOP
-#define newWHILEOP        CPerlObj::Perl_newWHILEOP
-#undef  new_constant
-#define new_constant      CPerlObj::new_constant
-#undef  new_logop
-#define new_logop         CPerlObj::new_logop
-#undef  new_stackinfo
-#define new_stackinfo     CPerlObj::Perl_new_stackinfo
-#undef  new_sv
-#define new_sv            CPerlObj::new_sv
-#undef  new_xiv
-#define new_xiv           CPerlObj::new_xiv
-#undef  new_xnv
-#define new_xnv           CPerlObj::new_xnv
-#undef  new_xpv
-#define new_xpv           CPerlObj::new_xpv
-#undef  new_xrv
-#define new_xrv           CPerlObj::new_xrv
-#undef  nextargv
-#define nextargv          CPerlObj::Perl_nextargv
-#undef  nextchar
-#define nextchar          CPerlObj::nextchar
-#undef  ninstr
-#define ninstr            CPerlObj::Perl_ninstr
-#undef  not_a_number
-#define not_a_number      CPerlObj::not_a_number
-#undef  no_fh_allowed
-#define no_fh_allowed     CPerlObj::Perl_no_fh_allowed
-#undef  no_op
-#define no_op             CPerlObj::Perl_no_op
-#undef  null
-#define null              CPerlObj::null
-#undef  profiledata
-#define profiledata       CPerlObj::Perl_profiledata
-#undef  package
-#define package           CPerlObj::Perl_package
-#undef  pad_alloc
-#define pad_alloc         CPerlObj::Perl_pad_alloc
-#undef  pad_allocmy
-#define pad_allocmy       CPerlObj::Perl_pad_allocmy
-#undef  pad_findmy
-#define pad_findmy        CPerlObj::Perl_pad_findmy
-#undef  op_const_sv
-#define op_const_sv       CPerlObj::Perl_op_const_sv
-#undef  op_free
-#define op_free           CPerlObj::Perl_op_free
-#undef  oopsCV
-#define oopsCV            CPerlObj::Perl_oopsCV
-#undef  oopsAV
-#define oopsAV            CPerlObj::Perl_oopsAV
-#undef  oopsHV
-#define oopsHV            CPerlObj::Perl_oopsHV
-#undef  open_script
-#define open_script       CPerlObj::open_script
-#undef  pad_leavemy
-#define pad_leavemy       CPerlObj::Perl_pad_leavemy
-#undef  pad_sv
-#define pad_sv            CPerlObj::Perl_pad_sv
-#undef  pad_findlex
-#define pad_findlex       CPerlObj::pad_findlex
-#undef  pad_free
-#define pad_free          CPerlObj::Perl_pad_free
-#undef  pad_reset
-#define pad_reset         CPerlObj::Perl_pad_reset
-#undef  pad_swipe
-#define pad_swipe         CPerlObj::Perl_pad_swipe
-#undef  peep
-#define peep              CPerlObj::Perl_peep
-#undef  perl_call_argv
-#define perl_call_argv    CPerlObj::perl_call_argv
-#undef  perl_call_method
-#define perl_call_method  CPerlObj::perl_call_method
-#undef  perl_call_pv
-#define perl_call_pv      CPerlObj::perl_call_pv
-#undef  perl_call_sv
-#define perl_call_sv      CPerlObj::perl_call_sv
-#undef  perl_callargv
-#define perl_callargv     CPerlObj::perl_callargv
-#undef  perl_callpv
-#define perl_callpv       CPerlObj::perl_callpv
-#undef  perl_callsv
-#define perl_callsv       CPerlObj::perl_callsv
-#undef  perl_eval_pv
-#define perl_eval_pv      CPerlObj::perl_eval_pv
-#undef  perl_eval_sv
-#define perl_eval_sv      CPerlObj::perl_eval_sv
-#undef  perl_get_sv
-#define perl_get_sv       CPerlObj::perl_get_sv
-#undef  perl_get_av
-#define perl_get_av       CPerlObj::perl_get_av
-#undef  perl_get_hv
-#define perl_get_hv       CPerlObj::perl_get_hv
-#undef  perl_get_cv
-#define perl_get_cv       CPerlObj::perl_get_cv
-#undef  Perl_GetVars
-#define Perl_GetVars      CPerlObj::Perl_GetVars
-#undef  perl_init_fold
-#define perl_init_fold    CPerlObj::perl_init_fold
-#undef  perl_init_i18nl10n
-#define perl_init_i18nl10n CPerlObj::perl_init_i18nl10n
-#undef  perl_init_i18nl14n
-#define perl_init_i18nl14n CPerlObj::perl_init_i18nl14n
-#undef  perl_new_collate
-#define perl_new_collate  CPerlObj::perl_new_collate
-#undef  perl_new_ctype
-#define perl_new_ctype    CPerlObj::perl_new_ctype
-#undef  perl_new_numeric
-#define perl_new_numeric  CPerlObj::perl_new_numeric
-#undef  perl_set_numeric_standard
-#define perl_set_numeric_standard CPerlObj::perl_set_numeric_standard
-#undef  perl_set_numeric_local
-#define perl_set_numeric_local CPerlObj::perl_set_numeric_local
-#undef  perl_require_pv
-#define perl_require_pv   CPerlObj::perl_require_pv
-#undef  perl_thread
-#define perl_thread       CPerlObj::perl_thread
-#undef  pidgone
-#define pidgone           CPerlObj::Perl_pidgone
-#undef  pmflag
-#define pmflag            CPerlObj::Perl_pmflag
-#undef  pmruntime
-#define pmruntime         CPerlObj::Perl_pmruntime
-#undef  pmtrans
-#define pmtrans           CPerlObj::Perl_pmtrans
-#undef  pop_return
-#define pop_return        CPerlObj::Perl_pop_return
-#undef  pop_scope
-#define pop_scope         CPerlObj::Perl_pop_scope
-#undef  prepend_elem
-#define prepend_elem      CPerlObj::Perl_prepend_elem
-#undef  provide_ref
-#define provide_ref       CPerlObj::Perl_provide_ref
-#undef  push_return
-#define push_return       CPerlObj::Perl_push_return
-#undef  push_scope
-#define push_scope        CPerlObj::Perl_push_scope
-#undef  pregcomp
-#define pregcomp          CPerlObj::Perl_pregcomp
-#undef  qsortsv
-#define qsortsv           CPerlObj::qsortsv
-#undef  ref
-#define ref               CPerlObj::Perl_ref
-#undef  refkids
-#define refkids           CPerlObj::Perl_refkids
-#undef  regdump
-#define regdump           CPerlObj::Perl_regdump
-#undef  rsignal
-#define rsignal           CPerlObj::Perl_rsignal
-#undef  rsignal_restore
-#define rsignal_restore   CPerlObj::Perl_rsignal_restore
-#undef  rsignal_save
-#define rsignal_save      CPerlObj::Perl_rsignal_save
-#undef  rsignal_state
-#define rsignal_state     CPerlObj::Perl_rsignal_state
-#undef  pregexec
-#define pregexec          CPerlObj::Perl_pregexec
-#undef  pregfree
-#define pregfree          CPerlObj::Perl_pregfree
-#undef  re_croak2
-#define re_croak2         CPerlObj::re_croak2
-#undef  refto
-#define refto             CPerlObj::refto
-#undef  reg
-#define reg               CPerlObj::reg
-#undef  reg_node
-#define reg_node          CPerlObj::reg_node
-#undef  reganode
-#define reganode          CPerlObj::reganode
-#undef  regatom
-#define regatom           CPerlObj::regatom
-#undef  regbranch
-#define regbranch         CPerlObj::regbranch
-#undef  regc
-#define regc              CPerlObj::regc
-#undef  regcurly
-#define regcurly          CPerlObj::regcurly
-#undef  regcppush
-#define regcppush         CPerlObj::regcppush
-#undef  regcppop
-#define regcppop          CPerlObj::regcppop
-#undef  regclass
-#define regclass          CPerlObj::regclass
-#undef  regexec_flags
-#define regexec_flags     CPerlObj::Perl_regexec_flags
-#undef  reginclass
-#define reginclass        CPerlObj::reginclass
-#undef  reginsert
-#define reginsert         CPerlObj::reginsert
-#undef  regmatch
-#define regmatch          CPerlObj::regmatch
-#undef  regnext
-#define regnext           CPerlObj::Perl_regnext
-#undef  regoptail
-#define regoptail         CPerlObj::regoptail
-#undef  regpiece
-#define regpiece          CPerlObj::regpiece
-#undef  regprop
-#define regprop           CPerlObj::Perl_regprop
-#undef  regrepeat
-#define regrepeat         CPerlObj::regrepeat
-#undef  regrepeat_hard
-#define regrepeat_hard    CPerlObj::regrepeat_hard
-#undef  regset
-#define regset            CPerlObj::regset
-#undef  regtail
-#define regtail           CPerlObj::regtail
-#undef  regtry
-#define regtry            CPerlObj::regtry
-#undef  regwhite
-#define regwhite          CPerlObj::regwhite
-#undef  repeatcpy
-#define repeatcpy         CPerlObj::Perl_repeatcpy
-#undef  restore_expect
-#define restore_expect    CPerlObj::restore_expect
-#undef  restore_lex_expect
-#define restore_lex_expect CPerlObj::restore_lex_expect
-#undef  restore_magic
-#define restore_magic     CPerlObj::restore_magic
-#undef  restore_rsfp
-#define restore_rsfp      CPerlObj::restore_rsfp
-#undef  rninstr
-#define rninstr           CPerlObj::Perl_rninstr
-#undef  runops_standard
-#define runops_standard   CPerlObj::Perl_runops_standard
-#undef  runops_debug
-#define runops_debug      CPerlObj::Perl_runops_debug
-#undef  rxres_free
-#define rxres_free        CPerlObj::Perl_rxres_free
-#undef  rxres_restore
-#define rxres_restore     CPerlObj::Perl_rxres_restore
-#undef  rxres_save
-#define rxres_save        CPerlObj::Perl_rxres_save
-#ifndef MYMALLOC
-#undef  safefree
-#define safefree          CPerlObj::Perl_safefree
-#undef  safecalloc
-#define safecalloc        CPerlObj::Perl_safecalloc
-#undef  safemalloc
-#define safemalloc        CPerlObj::Perl_safemalloc
-#undef  saferealloc
-#define saferealloc       CPerlObj::Perl_saferealloc
-#endif	/* MYMALLOC */
-#undef  same_dirent
-#define same_dirent       CPerlObj::same_dirent
-#undef  savepv
-#define savepv            CPerlObj::Perl_savepv
-#undef  savepvn
-#define savepvn           CPerlObj::Perl_savepvn
-#undef  savestack_grow
-#define savestack_grow    CPerlObj::Perl_savestack_grow
-#undef  save_aelem
-#define save_aelem        CPerlObj::Perl_save_aelem
-#undef  save_aptr
-#define save_aptr         CPerlObj::Perl_save_aptr
-#undef  save_ary
-#define save_ary          CPerlObj::Perl_save_ary
-#undef  save_clearsv
-#define save_clearsv      CPerlObj::Perl_save_clearsv
-#undef  save_delete
-#define save_delete       CPerlObj::Perl_save_delete
-#undef  save_destructor
-#define save_destructor   CPerlObj::Perl_save_destructor
-#undef  save_freesv
-#define save_freesv       CPerlObj::Perl_save_freesv
-#undef  save_freeop
-#define save_freeop       CPerlObj::Perl_save_freeop
-#undef  save_freepv
-#define save_freepv       CPerlObj::Perl_save_freepv
-#undef  save_generic_svref
-#define save_generic_svref CPerlObj::Perl_save_generic_svref
-#undef  save_gp
-#define save_gp           CPerlObj::Perl_save_gp
-#undef  save_hash
-#define save_hash         CPerlObj::Perl_save_hash
-#undef  save_hek
-#define save_hek          CPerlObj::save_hek
-#undef  save_helem
-#define save_helem        CPerlObj::Perl_save_helem
-#undef  save_hints
-#define save_hints        CPerlObj::Perl_save_hints
-#undef  save_hptr
-#define save_hptr         CPerlObj::Perl_save_hptr
-#undef  save_I16
-#define save_I16          CPerlObj::Perl_save_I16
-#undef  save_I32
-#define save_I32          CPerlObj::Perl_save_I32
-#undef  save_int
-#define save_int          CPerlObj::Perl_save_int
-#undef  save_item
-#define save_item         CPerlObj::Perl_save_item
-#undef  save_iv
-#define save_iv           CPerlObj::Perl_save_iv
-#undef  save_lines
-#define save_lines        CPerlObj::save_lines
-#undef  save_list
-#define save_list         CPerlObj::Perl_save_list
-#undef  save_long
-#define save_long         CPerlObj::Perl_save_long
-#undef  save_magic
-#define save_magic        CPerlObj::save_magic
-#undef  save_nogv
-#define save_nogv         CPerlObj::Perl_save_nogv
-#undef  save_op
-#define save_op           CPerlObj::Perl_save_op
-#undef  save_scalar
-#define save_scalar       CPerlObj::Perl_save_scalar
-#undef  save_scalar_at
-#define save_scalar_at    CPerlObj::save_scalar_at
-#undef  save_pptr
-#define save_pptr         CPerlObj::Perl_save_pptr
-#undef  save_sptr
-#define save_sptr         CPerlObj::Perl_save_sptr
-#undef  save_svref
-#define save_svref        CPerlObj::Perl_save_svref
-#undef  save_threadsv
-#define save_threadsv     CPerlObj::Perl_save_threadsv
-#undef  sawparens
-#define sawparens         CPerlObj::Perl_sawparens
-#undef  scalar
-#define scalar            CPerlObj::Perl_scalar
-#undef  scalarboolean
-#define scalarboolean     CPerlObj::scalarboolean
-#undef  scalarkids
-#define scalarkids        CPerlObj::Perl_scalarkids
-#undef  scalarseq
-#define scalarseq         CPerlObj::Perl_scalarseq
-#undef  scalarvoid
-#define scalarvoid        CPerlObj::Perl_scalarvoid
-#undef  scan_commit
-#define scan_commit       CPerlObj::scan_commit
-#undef  scan_const
-#define scan_const        CPerlObj::Perl_scan_const
-#undef  scan_formline
-#define scan_formline     CPerlObj::Perl_scan_formline
-#undef  scan_ident
-#define scan_ident        CPerlObj::Perl_scan_ident
-#undef  scan_inputsymbol
-#define scan_inputsymbol  CPerlObj::Perl_scan_inputsymbol
-#undef  scan_heredoc
-#define scan_heredoc      CPerlObj::Perl_scan_heredoc
-#undef  scan_hex
-#define scan_hex          CPerlObj::Perl_scan_hex
-#undef  scan_num
-#define scan_num          CPerlObj::Perl_scan_num
-#undef  scan_oct
-#define scan_oct          CPerlObj::Perl_scan_oct
-#undef  scan_pat
-#define scan_pat          CPerlObj::Perl_scan_pat
-#undef  scan_str
-#define scan_str          CPerlObj::Perl_scan_str
-#undef  scan_subst
-#define scan_subst        CPerlObj::Perl_scan_subst
-#undef  scan_trans
-#define scan_trans        CPerlObj::Perl_scan_trans
-#undef  scan_word
-#define scan_word         CPerlObj::Perl_scan_word
-#undef  scope
-#define scope             CPerlObj::Perl_scope
-#undef  screaminstr
-#define screaminstr       CPerlObj::Perl_screaminstr
-#undef  seed
-#define seed              CPerlObj::seed
-#undef  setdefout
-#define setdefout         CPerlObj::Perl_setdefout
-#undef  setenv_getix
-#define setenv_getix      CPerlObj::Perl_setenv_getix
-#undef  sharepvn
-#define sharepvn          CPerlObj::Perl_sharepvn
-#undef  set_csh
-#define set_csh           CPerlObj::set_csh
-#undef  sighandler
-#define sighandler        CPerlObj::Perl_sighandler
-#undef  share_hek
-#define share_hek         CPerlObj::Perl_share_hek
-#undef  skipspace
-#define skipspace         CPerlObj::Perl_skipspace
-#undef  sortcv
-#define sortcv            CPerlObj::sortcv
-#ifndef PERL_OBJECT
-#undef  stack_base
-#define stack_base        CPerlObj::Perl_stack_base
-#endif
-#undef  stack_grow
-#define stack_grow        CPerlObj::Perl_stack_grow
-#undef  start_subparse
-#define start_subparse    CPerlObj::Perl_start_subparse
-#undef  study_chunk
-#define study_chunk       CPerlObj::study_chunk
-#undef  sub_crush_depth
-#define sub_crush_depth   CPerlObj::Perl_sub_crush_depth
-#undef  sublex_done
-#define sublex_done       CPerlObj::sublex_done
-#undef  sublex_push
-#define sublex_push       CPerlObj::sublex_push
-#undef  sublex_start
-#define sublex_start      CPerlObj::sublex_start
-#undef  sv_2bool
-#define sv_2bool          CPerlObj::Perl_sv_2bool
-#undef  sv_2cv
-#define sv_2cv            CPerlObj::Perl_sv_2cv
-#undef  sv_2io
-#define sv_2io            CPerlObj::Perl_sv_2io
-#undef  sv_2iv
-#define sv_2iv            CPerlObj::Perl_sv_2iv
-#undef  sv_2uv
-#define sv_2uv            CPerlObj::Perl_sv_2uv
-#undef  sv_2mortal
-#define sv_2mortal        CPerlObj::Perl_sv_2mortal
-#undef  sv_2nv
-#define sv_2nv            CPerlObj::Perl_sv_2nv
-#undef  sv_2pv
-#define sv_2pv            CPerlObj::Perl_sv_2pv
-#undef  sv_add_arena
-#define sv_add_arena      CPerlObj::Perl_sv_add_arena
-#undef  sv_backoff
-#define sv_backoff        CPerlObj::Perl_sv_backoff
-#undef  sv_bless
-#define sv_bless          CPerlObj::Perl_sv_bless
-#undef  sv_catpv
-#define sv_catpv          CPerlObj::Perl_sv_catpv
-#undef  sv_catpv_mg
-#define sv_catpv_mg       CPerlObj::Perl_sv_catpv_mg
-#undef  sv_catpvf
-#define sv_catpvf         CPerlObj::Perl_sv_catpvf
-#undef  sv_catpvf_mg
-#define sv_catpvf_mg      CPerlObj::Perl_sv_catpvf_mg
-#undef  sv_catpvn
-#define sv_catpvn         CPerlObj::Perl_sv_catpvn
-#undef  sv_catpvn_mg
-#define sv_catpvn_mg      CPerlObj::Perl_sv_catpvn_mg
-#undef  sv_catsv
-#define sv_catsv          CPerlObj::Perl_sv_catsv
-#undef  sv_catsv_mg
-#define sv_catsv_mg       CPerlObj::Perl_sv_catsv_mg
-#undef  sv_check_thinkfirst
-#define sv_check_thinkfirst CPerlObj::sv_check_thinkfirst
-#undef  sv_chop
-#define sv_chop           CPerlObj::Perl_sv_chop
-#undef  sv_clean_all
-#define sv_clean_all      CPerlObj::Perl_sv_clean_all
-#undef  sv_clean_objs
-#define sv_clean_objs     CPerlObj::Perl_sv_clean_objs
-#undef  sv_clear
-#define sv_clear          CPerlObj::Perl_sv_clear
-#undef  sv_cmp
-#define sv_cmp            CPerlObj::Perl_sv_cmp
-#undef  sv_cmp_locale
-#define sv_cmp_locale     CPerlObj::Perl_sv_cmp_locale
-#undef  sv_collxfrm
-#define sv_collxfrm       CPerlObj::Perl_sv_collxfrm
-#undef  sv_compile_2op
-#define sv_compile_2op    CPerlObj::Perl_sv_compile_2op
-#undef  sv_dec
-#define sv_dec            CPerlObj::Perl_sv_dec
-#undef  sv_derived_from
-#define sv_derived_from   CPerlObj::Perl_sv_derived_from
-#undef  sv_dump
-#define sv_dump           CPerlObj::Perl_sv_dump
-#undef  sv_eq
-#define sv_eq             CPerlObj::Perl_sv_eq
-#undef  sv_free
-#define sv_free           CPerlObj::Perl_sv_free
-#undef  sv_free_arenas
-#define sv_free_arenas    CPerlObj::Perl_sv_free_arenas
-#undef  sv_gets
-#define sv_gets           CPerlObj::Perl_sv_gets
-#undef  sv_grow
-#define sv_grow           CPerlObj::Perl_sv_grow
-#undef  sv_inc
-#define sv_inc            CPerlObj::Perl_sv_inc
-#undef  sv_insert
-#define sv_insert         CPerlObj::Perl_sv_insert
-#undef  sv_isa
-#define sv_isa            CPerlObj::Perl_sv_isa
-#undef  sv_isobject
-#define sv_isobject       CPerlObj::Perl_sv_isobject
-#undef  sv_iv
-#define sv_iv             CPerlObj::Perl_sv_iv
-#undef  sv_len
-#define sv_len            CPerlObj::Perl_sv_len
-#undef  sv_magic
-#define sv_magic          CPerlObj::Perl_sv_magic
-#undef  sv_mortalcopy
-#define sv_mortalcopy     CPerlObj::Perl_sv_mortalcopy
-#undef  sv_mortalgrow
-#define sv_mortalgrow     CPerlObj::sv_mortalgrow
-#undef  sv_newmortal
-#define sv_newmortal      CPerlObj::Perl_sv_newmortal
-#undef  sv_newref
-#define sv_newref         CPerlObj::Perl_sv_newref
-#undef  sv_nv
-#define sv_nv             CPerlObj::Perl_sv_nv
-#undef  sv_peek
-#define sv_peek           CPerlObj::Perl_sv_peek
-#undef  sv_pvn
-#define sv_pvn            CPerlObj::Perl_sv_pvn
-#undef  sv_pvn_force
-#define sv_pvn_force      CPerlObj::Perl_sv_pvn_force
-#undef  sv_reftype
-#define sv_reftype        CPerlObj::Perl_sv_reftype
-#undef  sv_replace
-#define sv_replace        CPerlObj::Perl_sv_replace
-#undef  sv_report_used
-#define sv_report_used    CPerlObj::Perl_sv_report_used
-#undef  sv_reset
-#define sv_reset          CPerlObj::Perl_sv_reset
-#undef  sv_setiv
-#define sv_setiv          CPerlObj::Perl_sv_setiv
-#undef  sv_setiv_mg
-#define sv_setiv_mg       CPerlObj::Perl_sv_setiv_mg
-#undef  sv_setnv
-#define sv_setnv          CPerlObj::Perl_sv_setnv
-#undef  sv_setnv_mg
-#define sv_setnv_mg       CPerlObj::Perl_sv_setnv_mg
-#undef  sv_setuv
-#define sv_setuv          CPerlObj::Perl_sv_setuv
-#undef  sv_setuv_mg
-#define sv_setuv_mg       CPerlObj::Perl_sv_setuv_mg
-#undef  sv_setref_iv
-#define sv_setref_iv      CPerlObj::Perl_sv_setref_iv
-#undef  sv_setref_nv
-#define sv_setref_nv      CPerlObj::Perl_sv_setref_nv
-#undef  sv_setref_pv
-#define sv_setref_pv      CPerlObj::Perl_sv_setref_pv
-#undef  sv_setref_pvn
-#define sv_setref_pvn     CPerlObj::Perl_sv_setref_pvn
-#undef  sv_setpv
-#define sv_setpv          CPerlObj::Perl_sv_setpv
-#undef  sv_setpv_mg
-#define sv_setpv_mg       CPerlObj::Perl_sv_setpv_mg
-#undef  sv_setpvf
-#define sv_setpvf         CPerlObj::Perl_sv_setpvf
-#undef  sv_setpvf_mg
-#define sv_setpvf_mg      CPerlObj::Perl_sv_setpvf_mg
-#undef  sv_setpviv
-#define sv_setpviv        CPerlObj::Perl_sv_setpviv
-#undef  sv_setpviv_mg
-#define sv_setpviv_mg     CPerlObj::Perl_sv_setpviv_mg
-#undef  sv_setpvn
-#define sv_setpvn         CPerlObj::Perl_sv_setpvn
-#undef  sv_setpvn_mg
-#define sv_setpvn_mg      CPerlObj::Perl_sv_setpvn_mg
-#undef  sv_setsv
-#define sv_setsv          CPerlObj::Perl_sv_setsv
-#undef  sv_setsv_mg
-#define sv_setsv_mg       CPerlObj::Perl_sv_setsv_mg
-#undef  sv_taint
-#define sv_taint          CPerlObj::Perl_sv_taint
-#undef  sv_tainted
-#define sv_tainted        CPerlObj::Perl_sv_tainted
-#undef  sv_true
-#define sv_true           CPerlObj::Perl_sv_true
-#undef  sv_unglob
-#define sv_unglob         CPerlObj::sv_unglob
-#undef  sv_unmagic
-#define sv_unmagic        CPerlObj::Perl_sv_unmagic
-#undef  sv_unref
-#define sv_unref          CPerlObj::Perl_sv_unref
-#undef  sv_untaint
-#define sv_untaint        CPerlObj::Perl_sv_untaint
-#undef  sv_upgrade
-#define sv_upgrade        CPerlObj::Perl_sv_upgrade
-#undef  sv_usepvn
-#define sv_usepvn         CPerlObj::Perl_sv_usepvn
-#undef  sv_usepvn_mg
-#define sv_usepvn_mg      CPerlObj::Perl_sv_usepvn_mg
-#undef  sv_uv
-#define sv_uv             CPerlObj::Perl_sv_uv
-#undef  sv_vcatpvfn
-#define sv_vcatpvfn       CPerlObj::Perl_sv_vcatpvfn
-#undef  sv_vsetpvfn
-#define sv_vsetpvfn       CPerlObj::Perl_sv_vsetpvfn
-#undef  taint_env
-#define taint_env         CPerlObj::Perl_taint_env
-#undef  taint_not
-#define taint_not         CPerlObj::Perl_taint_not
-#undef  taint_proper
-#define taint_proper      CPerlObj::Perl_taint_proper
-#undef  tokeq
-#define tokeq             CPerlObj::tokeq
-#undef  too_few_arguments
-#define too_few_arguments CPerlObj::Perl_too_few_arguments
-#undef  too_many_arguments
-#define too_many_arguments CPerlObj::Perl_too_many_arguments
-#undef  unlnk
-#define unlnk             CPerlObj::unlnk
-#undef  unsharepvn
-#define unsharepvn        CPerlObj::Perl_unsharepvn
-#undef  unshare_hek
-#define unshare_hek       CPerlObj::Perl_unshare_hek
-#undef  unwind_handler_stack
-#define unwind_handler_stack CPerlObj::unwind_handler_stack
-#undef  usage
-#define usage             CPerlObj::usage
-#undef  utilize
-#define utilize           CPerlObj::Perl_utilize
-#undef  validate_suid
-#define validate_suid     CPerlObj::validate_suid
-#undef  visit
-#define visit             CPerlObj::visit
-#undef  vivify_defelem
-#define vivify_defelem    CPerlObj::Perl_vivify_defelem
-#undef  vivify_ref
-#define vivify_ref        CPerlObj::Perl_vivify_ref
-#undef  wait4pid
-#define wait4pid          CPerlObj::Perl_wait4pid
-#undef  warn
-#define warn              CPerlObj::Perl_warn
-#undef  watch
-#define watch             CPerlObj::Perl_watch
-#undef  whichsig
-#define whichsig          CPerlObj::Perl_whichsig
-#undef  win32_textfilter
-#define win32_textfilter  CPerlObj::win32_textfilter
-#undef  yyerror
-#define yyerror           CPerlObj::Perl_yyerror
-#undef  yylex
-#define yylex             CPerlObj::Perl_yylex
-#undef  yyparse
-#define yyparse           CPerlObj::Perl_yyparse
-#undef  yywarn
-#define yywarn            CPerlObj::Perl_yywarn
-#undef  yydestruct
-#define yydestruct        CPerlObj::Perl_yydestruct
-
-#define new_he            CPerlObj::new_he
-#define more_he           CPerlObj::more_he
-#define del_he            CPerlObj::del_he
-
-#if defined(WIN32) && !defined(WIN32IO_IS_STDIO)
-#undef errno
-#define errno             CPerlObj::ErrorNo()
-
-#endif /* WIN32 */
-
-#endif /* __Objpp_h__ */
diff --git a/contrib/perl5/perl_exp.SH b/contrib/perl5/perl_exp.SH
deleted file mode 100755
index d8ae94951f06..000000000000
--- a/contrib/perl5/perl_exp.SH
+++ /dev/null
@@ -1,132 +0,0 @@
-#!/bin/sh
-#
-# Written: Nov 1994 Wayne Scott <wscott@ichips.intel.com>
-#
-# Updated: 1997-8 Jarkko Hietaniemi <jhi@iki.fi>
-#
-# Create the export list for perl.
-# Needed by AIX to do dynamic linking.
-#
-# This simple program relies on 'global.sym' and few other *.sym files
-# and the *var*.h files being up to date with all of the global
-# symbols that a dynamic link library might want to access.
-#
-# Most symbols have a Perl_ or PL_prefix because that's what embed.h
-# sticks in front of them.
-#
-# AIX requires the list of external symbols (variables or functions)
-# that are made available for another executable object file the import.
-# The list is called the export file and it is a simple text file.
-# The first line must be
-#!
-# That is, hash-bang, pound-shout, however you want to call it.
-# The remainder of the file are the names of the symbols, one per line.
-# The file is then given to the system loader (cc/xlc command line)
-# as -bE:export.file.
-
-case $CONFIG in
-'')
-	if test -f config.sh; then TOP=.;
-	elif test -f ../config.sh; then TOP=..;
-	elif test -f ../../config.sh; then TOP=../..;
-	elif test -f ../../../config.sh; then TOP=../../..;
-	elif test -f ../../../../config.sh; then TOP=../../../..;
-	else
-		echo "Can't find config.sh."; exit 1
-	fi
-	. $TOP/config.sh
-	;;
-esac
-: This forces SH files to create target in same directory as SH file.
-: This is so that make depend always knows where to find SH derivatives.
-case "$0" in
-*/*) cd `expr X$0 : 'X\(.*\)/'` ;;
-esac
-
-echo "Extracting perl.exp"
-
-rm -f perl.exp
-echo "#!" > perl.exp
-
-# No compat3 since 5.004_50.
-# No interp.sym since 5.005_03.
-# perlio.sym will added later if needed.
-
-syms="global.sym thread.sym"
-
-sed -n '/^[A-Za-z]/ s/^/Perl_/p' $syms                 >> perl.exp
-
-sed -n 's/^PERLVAR.*(G\([^[,]*\).*/PL_\1/p' perlvars.h >> perl.exp
-sed -n 's/^PERLVAR.*(I\([^[,]*\).*/PL_\1/p' intrpvar.h >> perl.exp
-sed -n 's/^PERLVAR.*(T\([^[,]*\).*/PL_\1/p' thrdvar.h  >> perl.exp
-
-# 
-# If we use the PerlIO abstraction layer, add its symbols.
-#
-
-if [ $useperlio = "define" ]
-then
-	grep '^[A-Za-z]' perlio.sym >> perl.exp
-fi
-
-#
-# Extra globals not included above (including a few that might
-# not actually be defined, but there's no harm in that).
-#
-
-cat >> perl.exp <<END
-perl_init_i18nl10n
-perl_init_i18nl14n
-perl_new_collate
-perl_new_ctype
-perl_new_numeric
-perl_set_numeric_local
-perl_set_numeric_standard
-perl_alloc
-perl_construct
-perl_destruct
-perl_free
-perl_parse
-perl_run
-perl_get_sv
-perl_get_av
-perl_get_hv
-perl_get_cv
-perl_call_argv
-perl_call_pv
-perl_call_method
-perl_call_sv
-perl_eval_pv
-perl_eval_sv
-perl_require_pv
-cast_i32
-cast_iv
-cast_uv
-END
-
-case "$ccflags" in
-*-DHIDEMYMALLOC*)
-  cat >>perl.exp <<END
-Mymalloc
-Mycalloc
-Myremalloc
-Myfree
-END
-  ;;
-esac
-
-case "$ccflags" in
-*-DEMBEDMYMALLOC*)
-  cat >>perl.exp <<END
-Perl_malloc
-Perl_calloc
-Perl_realloc
-Perl_free
-END
-  ;;
-esac
-
-# The shebang line nicely sorts as the first one.
-sort -o perl.exp -u perl.exp
-
-# eof
diff --git a/contrib/perl5/t/lib/thread.t b/contrib/perl5/t/lib/thread.t
deleted file mode 100755
index c127d0f28f2a..000000000000
--- a/contrib/perl5/t/lib/thread.t
+++ /dev/null
@@ -1,73 +0,0 @@
-#!./perl
-
-BEGIN {
-    chdir 't' if -d 't';
-    @INC = '../lib';
-    require Config; import Config;
-    if (! $Config{'usethreads'}) {
-	print "1..0\n";
-	exit 0;
-    }
-
-    # XXX known trouble with global destruction
-    $ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3;
-}
-$| = 1;
-print "1..14\n";
-use Thread;
-print "ok 1\n";
-
-sub content
-{
- print shift;
- return shift;
-}
-
-# create a thread passing args and immedaietly wait for it.
-my $t = new Thread \&content,("ok 2\n","ok 3\n", 1..1000);
-print $t->join;
-
-# check that lock works ...
-{lock $foo;
- $t = new Thread sub { lock $foo; print "ok 5\n" };
- print "ok 4\n";
-}
-$t->join;
-
-sub dorecurse
-{
- my $val = shift;
- my $ret;
- print $val;
- if (@_)
-  {
-   $ret = Thread->new(\&dorecurse, @_);
-   $ret->join;
-  }
-}
-
-$t = new Thread \&dorecurse, map { "ok $_\n" } 6..10;
-$t->join;
-
-# test that sleep lets other thread run
-$t = new Thread \&dorecurse,"ok 11\n";
-sleep 6;
-print "ok 12\n";
-$t->join;
-
-sub islocked
-{
- use attrs 'locked';
- my $val = shift;
- my $ret;
- print $val;
- if (@_)
-  {
-   $ret = Thread->new(\&islocked, shift);
-  }
- $ret;
-}
-
-$t = Thread->new(\&islocked, "ok 13\n", "ok 14\n");
-$t->join->join;
-
diff --git a/contrib/perl5/t/op/nothread.t b/contrib/perl5/t/op/nothread.t
deleted file mode 100755
index a0d444d90b31..000000000000
--- a/contrib/perl5/t/op/nothread.t
+++ /dev/null
@@ -1,35 +0,0 @@
-#!./perl
-
-# NOTE: Please don't add tests to this file unless they *need* to be run in
-# separate executable and can't simply use eval.
-
-BEGIN
- {
-  chdir 't' if -d 't';
-  @INC = "../lib";
-  require Config;
-  import Config;
-  if ($Config{'usethreads'})
-   {
-    print "1..0\n";
-    exit 0;
-   }
- }
-
-
-$|=1;
-
-print "1..9\n";
-$t = 1;
-sub foo { local(@_) = ('p', 'q', 'r'); }
-sub bar { unshift @_, 'D'; @_ }
-sub baz { push @_, 'E'; return @_ }
-for (1..3) 
- { 
-   print "not " unless join('',foo('a', 'b', 'c')) eq 'pqr';
-   print "ok ",$t++,"\n";
-   print "not" unless join('',bar('d')) eq 'Dd';
-   print "ok ",$t++,"\n";
-   print "not" unless join('',baz('e')) eq 'eE';
-   print "ok ",$t++,"\n";
- } 
diff --git a/contrib/perl5/t/pragma/warn-1global b/contrib/perl5/t/pragma/warn-1global
deleted file mode 100644
index a7ca6070778c..000000000000
--- a/contrib/perl5/t/pragma/warn-1global
+++ /dev/null
@@ -1,159 +0,0 @@
-Check existing $^W functionality
-
-__END__
-
-# warnable code, warnings disabled
-$a =+ 3 ;
-EXPECT
-
-########
--w
-# warnable code, warnings enabled via command line switch
-$a =+ 3 ;
-EXPECT
-Reversed += operator at - line 3.
-Name "main::a" used only once: possible typo at - line 3.
-########
-#! perl -w
-# warnable code, warnings enabled via #! line
-$a =+ 3 ;
-EXPECT
-Reversed += operator at - line 3.
-Name "main::a" used only once: possible typo at - line 3.
-########
-
-# warnable code, warnings enabled via compile time $^W
-BEGIN { $^W = 1 }
-$a =+ 3 ;
-EXPECT
-Reversed += operator at - line 4.
-Name "main::a" used only once: possible typo at - line 4.
-########
-
-# compile-time warnable code, warnings enabled via runtime $^W
-# so no warning printed.
-$^W = 1 ;
-$a =+ 3 ;
-EXPECT
-
-########
-
-# warnable code, warnings enabled via runtime $^W
-$^W = 1 ;
-my $b ; chop $b ;
-EXPECT
-Use of uninitialized value at - line 4.
-########
-
-# warnings enabled at compile time, disabled at run time
-BEGIN { $^W = 1 }
-$^W = 0 ;
-my $b ; chop $b ;
-EXPECT
-
-########
-
-# warnings disabled at compile time, enabled at run time
-BEGIN { $^W = 0 }
-$^W = 1 ;
-my $b ; chop $b ;
-EXPECT
-Use of uninitialized value at - line 5.
-########
--w
---FILE-- abcd
-my $b ; chop $b ;
-1 ;
---FILE-- 
-require "./abcd";
-EXPECT
-Use of uninitialized value at ./abcd line 1.
-########
-
---FILE-- abcd
-my $b ; chop $b ;
-1 ;
---FILE-- 
-#! perl -w
-require "./abcd";
-EXPECT
-Use of uninitialized value at ./abcd line 1.
-########
-
---FILE-- abcd
-my $b ; chop $b ;
-1 ;
---FILE-- 
-$^W =1 ;
-require "./abcd";
-EXPECT
-Use of uninitialized value at ./abcd line 1.
-########
-
---FILE-- abcd
-$^W = 0;
-my $b ; chop $b ;
-1 ;
---FILE-- 
-$^W =1 ;
-require "./abcd";
-EXPECT
-
-########
-
---FILE-- abcd
-$^W = 1;
-1 ;
---FILE-- 
-$^W =0 ;
-require "./abcd";
-my $b ; chop $b ;
-EXPECT
-Use of uninitialized value at - line 3.
-########
-
-$^W = 1;
-eval "my $b ; chop $b ;" ;
-EXPECT
-Use of uninitialized value at - line 3.
-Use of uninitialized value at - line 3.
-########
-
-eval "$^W = 1;" ;
-my $b ; chop $b ;
-EXPECT
-
-########
-
-eval {$^W = 1;} ;
-my $b ; chop $b ;
-EXPECT
-Use of uninitialized value at - line 3.
-########
-
-{
-    local ($^W) = 1;
-}
-my $b ; chop $b ;
-EXPECT
-
-########
-
-my $a ; chop $a ;
-{
-    local ($^W) = 1;
-    my $b ; chop $b ;
-}
-my $c ; chop $c ;
-EXPECT
-Use of uninitialized value at - line 5.
-########
--w
--e undef
-EXPECT
-Use of uninitialized value at - line 2.
-########
-BEGIN { $^W = 1 }
-for (@{[0]}) { "$_" }		# check warning isn't duplicated
-EXPECT
-Useless use of string in void context at - line 2.
diff --git a/contrib/perl5/t/pragma/warning.t b/contrib/perl5/t/pragma/warning.t
deleted file mode 100755
index 35d9d485e760..000000000000
--- a/contrib/perl5/t/pragma/warning.t
+++ /dev/null
@@ -1,113 +0,0 @@
-#!./perl 
-
-BEGIN {
-    chdir 't' if -d 't';
-    @INC = '../lib';
-    $ENV{PERL5LIB} = '../lib';
-    require Config; import Config;
-}
-
-$| = 1;
-
-my $Is_VMS     = $^O eq 'VMS';
-my $Is_MSWin32 = $^O eq 'MSWin32';
-my $tmpfile = "tmp0000";
-my $i = 0 ;
-1 while -f ++$tmpfile;
-END {  if ($tmpfile) { 1 while unlink $tmpfile} }
-
-my @prgs = () ;
-
-foreach (sort glob("pragma/warn-*")) {
-
-    next if /\.orig$/ ;
-
-    next if /(~|\.orig)$/;
-
-    open F, "<$_" or die "Cannot open $_: $!\n" ;
-    while (<F>) {
-	last if /^__END__/ ;
-    }
-
-    {
-        local $/ = undef;
-        @prgs = (@prgs, split "\n########\n", <F>) ;
-    }
-    close F ;
-}
-
-undef $/;
-
-print "1..", scalar @prgs, "\n";
- 
- 
-for (@prgs){
-    my $switch = "";
-    my @temps = () ;
-    if (s/^\s*-\w+//){
-        $switch = $&;
-        $switch =~ s/(-\S*[A-Z]\S*)/"-$1"/ if $Is_VMS; # protect uc switches
-    }
-    my($prog,$expected) = split(/\nEXPECT\n/, $_);
-    if ( $prog =~ /--FILE--/) {
-        my(@files) = split(/\n--FILE--\s*([^\s\n]*)\s*\n/, $prog) ;
-	shift @files ;
-	die "Internal error test $i didn't split into pairs, got " . 
-		scalar(@files) . "[" . join("%%%%", @files) ."]\n"
-	    if @files % 2 ;
-	while (@files > 2) {
-	    my $filename = shift @files ;
-	    my $code = shift @files ;
-    	    push @temps, $filename ;
-	    open F, ">$filename" or die "Cannot open $filename: $!\n" ;
-	    print F $code ;
-	    close F ;
-	}
-	shift @files ;
-	$prog = shift @files ;
-    }
-    open TEST, ">$tmpfile";
-    print TEST $prog,"\n";
-    close TEST;
-    my $results = $Is_VMS ?
-                  `MCR $^X $switch $tmpfile` :
-		  $Is_MSWin32 ?
-                  `.\\perl -I../lib $switch $tmpfile 2>&1` :
-                  `sh -c './perl $switch $tmpfile' 2>&1`;
-    my $status = $?;
-    $results =~ s/\n+$//;
-    # allow expected output to be written as if $prog is on STDIN
-    $results =~ s/tmp\d+/-/g;
-    $results =~ s/\n%[A-Z]+-[SIWEF]-.*$// if $Is_VMS;  # clip off DCL status msg
-# bison says 'parse error' instead of 'syntax error',
-# various yaccs may or may not capitalize 'syntax'.
-    $results =~ s/^(syntax|parse) error/syntax error/mig;
-    $expected =~ s/\n+$//;
-    my $prefix = ($results =~ s/^PREFIX\n//) ;
-    # any special options? (OPTIONS foo bar zap)
-    my $option_regex = 0;
-    if ($expected =~ s/^OPTIONS? (.+)\n//) {
-	foreach my $option (split(' ', $1)) {
-	    if ($option eq 'regex') { # allow regular expressions
-		$option_regex = 1;
-	    } else {
-		die "$0: Unknown OPTION '$option'\n";
-	    }
-	}
-    }
-    if ( $results =~ s/^SKIPPED\n//) {
-	print "$results\n" ;
-    }
-    elsif (($prefix  && (( $option_regex && $results !~ /^$expected/) ||
-			 (!$option_regex && $results !~ /^\Q$expected/))) or
-	   (!$prefix && (( $option_regex && $results !~ /^$expected/) ||
-			 (!$option_regex && $results ne $expected)))) {
-        print STDERR "PROG: $switch\n$prog\n";
-        print STDERR "EXPECTED:\n$expected\n";
-        print STDERR "GOT:\n$results\n";
-        print "not ";
-    }
-    print "ok ", ++$i, "\n";
-    foreach (@temps) 
-	{ unlink $_ if $_ } 
-}
diff --git a/contrib/perl5/thread.sym b/contrib/perl5/thread.sym
deleted file mode 100644
index 1e0ca6a5f2c3..000000000000
--- a/contrib/perl5/thread.sym
+++ /dev/null
@@ -1 +0,0 @@
-#