--- rxvt-unicode/src/perl/selection-autotransform	2012/06/10 17:40:08	1.12
+++ rxvt-unicode/src/perl/selection-autotransform	2014/10/30 09:44:58	1.15
@@ -1,10 +1,10 @@
 #! perl
 
-#:META:X_RESOURCE:%.:string:autotransform expression
+#:META:RESOURCE:%.:string:autotransform expression
 
 =head1 NAME
 
-   selection-autotransform - automatically transform select text
+selection-autotransform - automatically transform select text
 
 =head1 DESCRIPTION
 
@@ -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;
    });
 }