ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/perl/remote-selection
(Generate patch)

Comparing rxvt-unicode/src/perl/remote-selection (file contents):
Revision 1.2 by root, Wed Jan 25 15:04:53 2006 UTC vs.
Revision 1.3 by root, Wed Jan 25 15:15:43 2006 UTC

73 } else { 73 } else {
74 delete $self->{iow}; 74 delete $self->{iow};
75 $self->selection_clear; 75 $self->selection_clear;
76 $self->selection ($txt); 76 $self->selection ($txt);
77 $self->selection_grab (urxvt::CurrentTime); 77 $self->selection_grab (urxvt::CurrentTime);
78 $self->wait_pipe ($fh, $pid, "selection fetched"); 78 close $fh;
79 my $status = $? >> 8;
80 $self->msg ("selection fetched (status $status)");
79 } 81 }
80 }); 82 });
81 } 83 }
82} 84}
83 85

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines