1 files changed, 0 insertions, 130 deletions
diff --git a/Master/tlpkg/tlperl/lib/Tk/tkGlue.def b/Master/tlpkg/tlperl/lib/Tk/tkGlue.def
deleted file mode 100644
index 2f1662c71c2..00000000000
--- a/Master/tlpkg/tlperl/lib/Tk/tkGlue.def
+++ /dev/null
@@ -1,130 +0,0 @@
-#ifdef CAN_PROTOTYPE
-#define XSdec(x) XS(x)
-#else
-#define XSdec(x) void x()
-#endif
-
-#define TKXSRETURN(off)					\
-    STMT_START {					\
-	IV ptkAdj = (off);				\
-	XSRETURN(ptkAdj);				\
-    } STMT_END
-
-#ifndef PATCHLEVEL
-#include <patchlevel.h>
-#endif
-
-#if defined(PATCHLEVEL) && (PATCHLEVEL < 5)
-#define PL_sv_undef	sv_undef
-#define PL_tainting	tainting
-#define PL_tainted	tainted
-#define PL_stack_base	stack_base
-#define PL_stack_sp	stack_sp
-#define PL_curcop	curcop
-#endif
-
-#ifndef CopSTASH
-#define CopSTASH(c)		c->cop_stash
-#define CopSTASH_set(c,h)	(CopSTASH(c) = h)
-#endif
-
-#ifndef dTHX
-#define dTHR int maybeTHR
-#endif
-
-#ifndef dTHXs
-#ifdef PERL_IMPLICIT_SYS
-#define dTHXs dTHX
-#else
-#define dTHR int maybeTHR
-#endif
-#endif
-
-#ifndef ERRSV
-#define ERRSV GvSV(errgv)
-#endif
-
-#ifndef aTHX_
-#define aTHX_
-#endif
-
-#ifndef pTHX_
-#define pTHX_
-#endif
-
-#ifdef dirty
-#undef dirty
-#endif
-#ifdef bufptr
-#undef bufptr
-#endif
-#ifdef colors
-#undef colors
-#endif
-#ifdef JOIN
-#undef JOIN
-#endif
-
-#ifdef na
-#if PATCHLEVEL >= 5
-#undef na
-#endif
-#endif
-
-
-#define Tcl_Interp     HV
-#define LangCallback   SV
-#define Var            SV *
-#define LangResultSave AV
-struct Lang_CmdInfo;
-#define Tcl_Command    struct Lang_CmdInfo *
-struct WrappedRegExp;
-#define Tcl_RegExp     struct WrappedRegExp *
-#define Tcl_Obj        SV
-#define Tcl_DString    SV *
-
-#ifndef PerlIO
-#define PerlIO FILE
-#define PerlIO_stderr()			stderr
-#define PerlIO_printf			fprintf
-#define PerlIO_flush(f)			Fflush(f)
-#define PerlIO_vprintf(f,fmt,a)		vfprintf(f,fmt,a)
-#define PerlIO_putc(f,c)		fputc(c,f)
-#define PerlIO_fileno(f)		fileno(f)
-
-/* Now our interface to Configure's FILE_xxx macros */
-
-#ifdef USE_STDIO_PTR
-#define PerlIO_has_cntptr(f)		1
-#define PerlIO_get_ptr(f)		FILE_ptr(f)
-#define PerlIO_get_cnt(f)		FILE_cnt(f)
-
-#ifdef FILE_CNT_LVALUE
-#define PerlIO_canset_cnt(f)		1
-#ifdef FILE_PTR_LVALUE
-#define PerlIO_fast_gets(f)		1
-#endif
-#define PerlIO_set_cnt(f,c)		(FILE_cnt(f) = (c))
-#else
-#define PerlIO_canset_cnt(f)		0
-#define PerlIO_set_cnt(f,c)		abort()
-#endif
-
-#ifdef FILE_PTR_LVALUE
-#define PerlIO_set_ptrcnt(f,p,c)	(FILE_ptr(f) = (p), PerlIO_set_cnt(f,c))
-#else
-#define PerlIO_set_ptrcnt(f,p,c)	abort()
-#endif
-
-#else  /* USE_STDIO_PTR */
-
-#define PerlIO_has_cntptr(f)		0
-#define PerlIO_get_cnt(f)		(abort(),0)
-#define PerlIO_get_ptr(f)		(abort(),0)
-#define PerlIO_set_cnt(f,c)		abort()
-#define PerlIO_set_ptrcnt(f,p,c)	abort()
-
-#endif /* USE_STDIO_PTR */
-
-#endif
-