--- rxvt-unicode/src/perl/selection-autotransform	2012/09/04 22:41:12	1.13
+++ rxvt-unicode/src/perl/selection-autotransform	2014/10/30 09:44:58	1.15
@@ -1,6 +1,6 @@
 #! perl
 
-#:META:X_RESOURCE:%.:string:autotransform expression
+#:META:RESOURCE:%.:string:autotransform expression
 
 =head1 NAME
 
@@ -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;
    });
 }