--- rxvt-unicode/src/perl/example-refresh-hooks	2006/01/03 04:18:47	1.1
+++ rxvt-unicode/src/perl/example-refresh-hooks	2006/01/18 11:05:09	1.2
@@ -8,11 +8,9 @@
    # force a refresh every second
    $self->{digital_clock_refresh} = urxvt::timer
                     ->new
-                    ->start (urxvt::NOW)
-                    ->cb (sub {
-                       $self->{digital_clock_refresh}->start ($self->{digital_clock_refresh}->at + 1);
-                       $self->want_refresh;
-                    });
+                    ->start (1 + int urxvt::NOW)
+                    ->interval (1)
+                    ->cb (sub { $self->want_refresh });
 
    ()
 }