--- rxvt-unicode/src/rxvtperl.xs	2006/01/18 10:31:37	1.74
+++ rxvt-unicode/src/rxvtperl.xs	2006/01/18 11:05:09	1.75
@@ -1717,6 +1717,13 @@
         RETVAL
 
 timer *
+timer::after (NV delay)
+	CODE:
+        THIS->start (NOW + delay);
+        OUTPUT:
+        RETVAL
+
+timer *
 timer::stop ()
 	CODE:
         THIS->stop ();