--- Async-Interrupt/schmorp.h	2009/07/18 05:14:19	1.5
+++ Async-Interrupt/schmorp.h	2009/07/28 01:19:44	1.6
@@ -22,6 +22,10 @@
        && (PERL_VERSION > (b)					\
            || (PERL_VERSION == (b) && PERL_SUBVERSION >= (c)))))
 
+#ifndef PERL_MAGIC_ext
+# define PERL_MAGIC_ext '~'
+#endif
+
 #if !PERL_VERSION_ATLEAST (5,6,0)
 # ifndef PL_ppaddr
 #  define PL_ppaddr ppaddr