--- rxvt-unicode/src/perl/digital-clock	2006/01/03 04:30:31	1.6
+++ rxvt-unicode/src/perl/digital-clock	2012/06/10 17:31:53	1.10
@@ -1,17 +1,25 @@
 #! perl
 
-# this creates a simple digital clock
+=head1 NAME
 
-sub on_init {
+   digital-clock - display a digital clock overlay
+
+=head1 DESCRPTION
+
+Displays a digital clock using the built-in overlay.
+
+=cut
+
+sub on_start {
    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 (int urxvt::NOW) # make sure we update "on" the second
+                    ->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]);
                     });