| … | |
… | |
| 47 | sub copy { |
47 | sub copy { |
| 48 | my ($self) = @_; |
48 | my ($self) = @_; |
| 49 | |
49 | |
| 50 | if (open(CLIPBOARD, "| $self->{copy_cmd}")) { |
50 | if (open(CLIPBOARD, "| $self->{copy_cmd}")) { |
| 51 | my $sel = $self->selection(); |
51 | my $sel = $self->selection(); |
| 52 | utf8::encode($sel); |
52 | $sel = $self->locale_encode ($sel); |
| 53 | print CLIPBOARD $sel; |
53 | print CLIPBOARD $sel; |
| 54 | close(CLIPBOARD); |
54 | close(CLIPBOARD); |
| 55 | } else { |
55 | } else { |
| 56 | print STDERR "error running '$self->{copy_cmd}': $!\n"; |
56 | print STDERR "error running '$self->{copy_cmd}': $!\n"; |
| 57 | } |
57 | } |
