--- rxvt-unicode/src/perl/digital-clock	2006/01/03 04:18:47	1.5
+++ rxvt-unicode/src/perl/digital-clock	2006/01/18 11:05:09	1.8
@@ -5,12 +5,13 @@
 sub on_init {
    my ($self) = @_;
 
-   $self->{digital_clock_overlay} = $self->overlay (-1, 0, 8, 1, urxvt::OVERLAY_RSTYLE, 0);
-   $self->{digital_clock_timer} = urxvt::timer
+   $self->{overlay} = $self->overlay (-1, 0, 8, 1, urxvt::OVERLAY_RSTYLE, 0);
+   $self->{timer} = urxvt::timer
                     ->new
+                    ->start (1 + int urxvt::NOW) # make sure we update "on" the second
                     ->interval (1)
                     ->cb (sub {
-                       $self->{digital_clock_overlay}->set (0, 0,
+                       $self->{overlay}->set (0, 0,
                           sprintf "%2d:%02d:%02d", (localtime urxvt::NOW)[2,1,0]);
                     });