--- rxvt-unicode/src/iom_perl.xs	2007/11/11 04:08:00	1.4
+++ rxvt-unicode/src/iom_perl.xs	2011/07/29 08:35:09	1.7
@@ -19,8 +19,8 @@
 #   undef iom_const
     };
 
-    for (civ = iom_const_iv + sizeof (iom_const_iv) / sizeof (iom_const_iv [0]); civ-- > iom_const_iv; )
-      newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
+    for (civ = iom_const_iv + sizeof (iom_const_iv) / sizeof (iom_const_iv [0]); civ > iom_const_iv; civ--)
+      newCONSTSUB (stash, (char *)civ[-1].name, newSViv (civ[-1].iv));
 
     /* slightly dirty to put the same scalar into all those arrays, but */
     /* we do not expect users to modify them anyways */
@@ -62,10 +62,11 @@
         OUTPUT:
         RETVAL
 
+# deprecated
 NV
 timer::at ()
 	CODE:
-        RETVAL = THIS->at;
+        RETVAL = THIS->remaining () + ev_now ();
         OUTPUT:
         RETVAL
 
@@ -77,23 +78,23 @@
         RETVAL
 
 IOM_CHAINED
-timer::set (NV tstamp)
+timer::set (NV tstamp, NV repeat = THIS->repeat)
 	CODE:
-        THIS->set (tstamp);
+        THIS->set (tstamp, repeat);
         OUTPUT:
         RETVAL
 
 IOM_CHAINED
-timer::start (NV tstamp = ev::now ())
+timer::start (NV tstamp = ev::now (), NV repeat = THIS->repeat)
 	CODE:
-        THIS->start (tstamp - ev::now ());
+        THIS->start (tstamp - ev::now (), repeat);
         OUTPUT:
         RETVAL
 
 IOM_CHAINED
-timer::after (NV delay)
+timer::after (NV delay, NV repeat = THIS->repeat)
 	CODE:
-        THIS->start (delay);
+        THIS->start (delay, repeat);
         OUTPUT:
         RETVAL
 
@@ -214,6 +215,20 @@
         OUTPUT:
         RETVAL
 
+int
+pw::rpid ()
+	CODE:
+        RETVAL = THIS->rpid;
+        OUTPUT:
+        RETVAL
+
+int
+pw::rstatus ()
+	CODE:
+        RETVAL = THIS->rstatus;
+        OUTPUT:
+        RETVAL
+
 void
 pw::DESTROY ()