--- Coro/Event/Event.xs	2007/01/24 16:22:08	1.19
+++ Coro/Event/Event.xs	2007/09/23 21:52:04	1.22
@@ -17,6 +17,8 @@
 
 static HV *coro_event_event_stash;
 
+#define PERL_MAGIC_coro_event 0x18 /* to avoid clashes with e.g. event */
+
 static void
 coro_std_cb (pe_event *pe)
 {
@@ -107,9 +109,7 @@
           w->callback = coro_std_cb;
           w->ext_data = priv;
 
-          /* make sure Event does not use PERL_MAGIC_uvar, which */
-          /* we abuse for non-uvar purposes. */
-          sv_magicext (SvRV (self), newRV_noinc ((SV *)priv), PERL_MAGIC_uvar, 0, 0, 0);
+          sv_magicext (SvRV (self), newRV_noinc ((SV *)priv), PERL_MAGIC_coro_event, 0, (char *)w, 0);
         }
 }