--- rxvt-unicode/src/perl/remote-clipboard	2006/01/25 21:20:49	1.4
+++ rxvt-unicode/src/perl/remote-clipboard	2012/06/06 15:06:41	1.6
@@ -1,5 +1,8 @@
 #! perl
 
+#:META:X_RESOURCE:%.store: the command used to store the selection
+#:META:X_RESOURCE:%.fetch: the command used to fetch the selection
+
 use Fcntl ();
 
 sub msg {
@@ -40,7 +43,7 @@
       $self->{iow} = urxvt::iow
                      ->new
                      ->fd (fileno $fh)
-                     ->events (urxvt::EVENT_WRITE)
+                     ->events (urxvt::EV_WRITE)
                      ->start
                      ->cb (sub {
          if (my $len = syswrite $fh, $txt) {
@@ -65,7 +68,7 @@
       $self->{iow} = urxvt::iow
                      ->new
                      ->fd (fileno $fh)
-                     ->events (urxvt::EVENT_READ)
+                     ->events (urxvt::EV_READ)
                      ->start
                      ->cb (sub {
          if (my $len = sysread $fh, $txt, 8192, length $txt) {