--- rxvt-unicode/src/perl/remote-clipboard 2006/01/25 15:33:43 1.2 +++ rxvt-unicode/src/perl/remote-clipboard 2006/01/25 21:20:49 1.4 @@ -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; - } - - () -}