--- rxvt-unicode/src/perl/selection-autotransform	2014/05/17 13:38:23	1.14
+++ rxvt-unicode/src/perl/selection-autotransform	2014/10/30 09:44:58	1.15
@@ -48,9 +48,9 @@
 
    my $overlay = $self->overlay (0, 0, $self->strwidth ($msg), 1);
    $overlay->set (0, 0, $msg);
-   my $iow; $iow = urxvt::timer->new->after (2)->cb (sub {
+   $self->{timer} = urxvt::timer->new->after (2)->cb (sub {
+      delete $self->{timer};
       undef $overlay;
-      undef $iow;
    });
 }