--- rxvt-unicode/src/iom_perl.h	2006/12/14 15:19:31	1.1
+++ rxvt-unicode/src/iom_perl.h	2006/12/14 17:40:03	1.3
@@ -1,3 +1,5 @@
+typedef int IOM_CHAINED;
+
 /////////////////////////////////////////////////////////////////////////////
 
 #define SvWATCHER(sv) (perl_watcher *)SvPTR (sv, IOM_CLASS "::watcher")
@@ -50,7 +52,7 @@
   LEAVE;
 
   if (SvTRUE (ERRSV))
-    rxvt_warn ("%s callback evaluation error: %s", type, SvPV_nolen (ERRSV));
+    IOM_WARN ("%s callback evaluation error: %s", type, SvPV_nolen (ERRSV));
 }
 
 #define newSVtimer(timer) new_ref ((timer)->self, IOM_CLASS "::timer")