This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Create a lookup table for magic vtables from magic type, PL_magic_data.
[perl5.git] / perl.h
diff --git a/perl.h b/perl.h
index 9c00120..6b688b6 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -5072,6 +5072,15 @@ START_EXTERN_C
 #endif
 
 #include "mg_vtable.h"
+
+#ifdef DOINIT
+EXTCONST U8 PL_magic_data[256] =
+#include "mg_data.h"
+;
+#else
+EXTCONST U8 PL_magic_data[256];
+#endif
+
 #include "overload.h"
 
 END_EXTERN_C