--- rxvt-unicode/src/perl/remote-clipboard	2006/01/25 15:33:43	1.2
+++ rxvt-unicode/src/perl/remote-clipboard	2007/11/11 04:08:00	1.5
@@ -40,7 +40,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 +65,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) {
@@ -75,9 +75,7 @@
             $self->selection_clear;
             $self->selection ($txt);
             $self->selection_grab (urxvt::CurrentTime);
-            close $fh;
-            my $status = $? >> 8;
-            $self->msg ("selection fetched (status $status)");
+            $self->msg ("selection fetched");
          }
       });
    }
@@ -102,13 +100,4 @@
    ()
 }
 
-sub on_user_command {
-   my ($self, $cmd) = @_;
-
-   if ($cmd eq "selection-pastebin:remote-pastebin") {
-      $self->upload_paste;
-   }
-
-   ()
-}