1 files changed, 0 insertions, 50 deletions
diff --git a/contrib/perl5/mg.h b/contrib/perl5/mg.h
deleted file mode 100644
index 0048803..0000000
--- a/contrib/perl5/mg.h
+++ /dev/null
@@ -1,50 +0,0 @@
-/*    mg.h
- *
- *    Copyright (c) 1991-2001, Larry Wall
- *
- *    You may distribute under the terms of either the GNU General Public
- *    License or the Artistic License, as specified in the README file.
- *
- */
-
-#ifdef STRUCT_MGVTBL_DEFINITION
-STRUCT_MGVTBL_DEFINITION;
-#else
-struct mgvtbl {
-    int		(CPERLscope(*svt_get))	(pTHX_ SV *sv, MAGIC* mg);
-    int		(CPERLscope(*svt_set))	(pTHX_ SV *sv, MAGIC* mg);
-    U32		(CPERLscope(*svt_len))	(pTHX_ SV *sv, MAGIC* mg);
-    int		(CPERLscope(*svt_clear))(pTHX_ SV *sv, MAGIC* mg);
-    int		(CPERLscope(*svt_free))	(pTHX_ SV *sv, MAGIC* mg);
-};
-#endif
-
-struct magic {
-    MAGIC*	mg_moremagic;
-    MGVTBL*	mg_virtual;	/* pointer to magic functions */
-    U16		mg_private;
-    char	mg_type;
-    U8		mg_flags;
-    SV*		mg_obj;
-    char*	mg_ptr;
-    I32		mg_len;
-};
-
-#define MGf_TAINTEDDIR 1
-#define MGf_REFCOUNTED 2
-#define MGf_GSKIP      4
-
-#define MGf_MINMATCH   1
-
-#define MgTAINTEDDIR(mg)	(mg->mg_flags & MGf_TAINTEDDIR)
-#define MgTAINTEDDIR_on(mg)	(mg->mg_flags |= MGf_TAINTEDDIR)
-#define MgTAINTEDDIR_off(mg)	(mg->mg_flags &= ~MGf_TAINTEDDIR)
-
-#define MgPV(mg,lp)		((((int)(lp = (mg)->mg_len)) == HEf_SVKEY) ?   \
-				 SvPV((SV*)((mg)->mg_ptr),lp) :		\
-				 (mg)->mg_ptr)
-
-#define SvTIED_mg(sv,how) \
-    (SvRMAGICAL(sv) ? mg_find((sv),(how)) : Null(MAGIC*))
-#define SvTIED_obj(sv,mg) \
-    ((mg)->mg_obj ? (mg)->mg_obj : sv_2mortal(newRV(sv)))