| 603 |
|
|
| 604 |
if ($error) { |
if ($error) { |
| 605 |
$r = substr $self->{byte_buffer}, 0, 1, ''; |
$r = substr $self->{byte_buffer}, 0, 1, ''; |
| 606 |
$self->{onerror}->($self, 'illegal-octets-error', octets => \$r); |
my $fallback = $self->{fallback}->{$r}; |
| 607 |
|
if (defined $fallback) { |
| 608 |
|
## NOTE: This is an HTML5 parse error. Applied to Web ISO-8859-1 |
| 609 |
|
## and Web ISO-8859-11 encodings. |
| 610 |
|
$self->{onerror}->($self, 'fallback-char-error', octets => \$r, |
| 611 |
|
char => \$fallback, |
| 612 |
|
level => $self->{must_level}); |
| 613 |
|
return $fallback; |
| 614 |
|
} else { |
| 615 |
|
$self->{onerror}->($self, 'illegal-octets-error', octets => \$r); |
| 616 |
|
} |
| 617 |
} |
} |
| 618 |
|
|
| 619 |
return $r; |
return $r; |