Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
openSUSE:12.2
perl-XML-SAX
perl-XML-SAX-0.96-utf8.diff
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File perl-XML-SAX-0.96-utf8.diff of Package perl-XML-SAX
--- SAX/PurePerl/Reader/Stream.pm +++ SAX/PurePerl/Reader/Stream.pm @@ -70,6 +70,54 @@ my $self = shift; my ($encoding) = @_; # warn("set encoding to: $encoding\n"); + + # make sure that the buffer used to detect the encoding + # does not end in the middle of a utf8 sequence + if ($encoding eq 'UTF-8' && + !$self->[EOF] && + !utf8::is_utf8($self->[BUFFER]) && # make sure we do not do it twice + length($self->[BUFFER]) > 5) { + + my $x = reverse(substr($self->[BUFFER], -5)); + my $y = 0; + + # skip the all the bytes at the end of buffer + # starting with bits 10 (continuation bytes of utf8 sequence) + while ($x ne "" && (ord($x) & 0xc0) == 0x80) { + $y--; + $x = substr($x, 1); + } + + # if $x is ascii character, do nothing + # otherwise we must take a look how many + # continuation bytes we need + if ((ord($x) & 0xc0) == 0xc0) { + $x = ord($x); + if (($x & 0xe0) == 0xc0) { # the sequence contains one more byte + $y++; + } elsif (($x & 0xf0) == 0xe0) { # ...2 bytes + $y += 2; + } elsif (($x & 0xf8) == 0xf0) { # ...3 bytes + $y += 3; + } elsif (($x & 0xfc) == 0xf8) { # ...4 bytes + $y += 4; + } elsif (($x & 0xfe) == 0xfc) { # ...5 bytes + $y += 5; + } + + # read the last sequence in the buffer completely, if needed + if ($y > 0) { + my $buf; + my $bytesread = read($self->[FH], $buf, $y); + if ($bytesread) { + $self->[BUFFER] .= $buf; + } elsif (defined($bytesread)) { + $self->[EOF]++; + } + } + } + } + XML::SAX::PurePerl::Reader::switch_encoding_stream($self->[FH], $encoding); XML::SAX::PurePerl::Reader::switch_encoding_string($self->[BUFFER], $encoding); $self->[ENCODING] = $encoding;
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor