--- rxvt-unicode/src/iom_perl.xs	2009/07/18 05:59:49	1.5
+++ rxvt-unicode/src/iom_perl.xs	2009/12/26 09:23:53	1.6
@@ -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