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

Comparing rxvt-unicode/src/perl/macosx-clipboard (file contents):
Revision 1.4 by sf-exg, Sun Nov 20 11:09:22 2011 UTC vs.
Revision 1.5 by sf-exg, Tue Nov 22 17:04:28 2011 UTC

… …
43} 43}
44 44
45sub paste { 45sub paste {
46 my ($self) = @_; 46 my ($self) = @_;
47 47
48 # $str = $pasteboard->stringForType_($type)->UTF8String;
49 my $str = $pasteboard->paste; 48 my $str = $pasteboard->paste;
50 utf8::decode $str; 49 utf8::decode $str;
51 $self->tt_write ($self->locale_encode ($str)); 50 $self->tt_write ($self->locale_encode ($str));
52 51
53 () 52 ()

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines