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

Comparing rxvt-unicode/src/perl/selection (file contents):
Revision 1.32 by root, Sat Jan 21 21:20:34 2006 UTC vs.
Revision 1.33 by root, Sun Jan 22 11:57:06 2006 UTC

110 110
111 next if $len <= $curlen; 111 next if $len <= $curlen;
112 112
113 # convert back from UTF-8 offset space to character space 113 # convert back from UTF-8 offset space to character space
114 { 114 {
115 my $length = substr $text, $ofs, $len; 115 my $length = substr "$text ", $ofs, $len;
116 utf8::decode $length; 116 utf8::decode $length;
117 $len = length $length; 117 $len = length $length;
118 } 118 }
119 { 119 {
120 my $prefix = substr $text, 0, $ofs; 120 my $prefix = substr $text, 0, $ofs;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines