summaryrefslogtreecommitdiff
path: root/perl.h
diff options
context:
space:
mode:
Diffstat (limited to 'perl.h')
-rw-r--r--perl.h5
1 files changed, 5 insertions, 0 deletions
diff --git a/perl.h b/perl.h
index 6b688b6ff6..def6d1d96b 100644
--- a/perl.h
+++ b/perl.h
@@ -5071,6 +5071,11 @@ START_EXTERN_C
# define EXT_MGVTBL EXT MGVTBL
#endif
+#define PERL_MAGIC_VALUE_MAGIC 0x80
+#define PERL_MAGIC_VTABLE_MASK 0x3F
+#define PERL_MAGIC_TYPE_IS_VALUE_MAGIC(t) \
+ (PL_magic_data[(U8)(t)] & PERL_MAGIC_VALUE_MAGIC)
+
#include "mg_vtable.h"
#ifdef DOINIT