| 483 |
reason => sprintf (q(U+%04X: There is no character mapped to), $cc)); |
reason => sprintf (q(U+%04X: There is no character mapped to), $cc)); |
| 484 |
} else { |
} else { |
| 485 |
## Try to output with fallback escape sequence (if specified) |
## Try to output with fallback escape sequence (if specified) |
| 486 |
my $t = Encode::Charset::fallback_escape ($C, $c); |
my $t = Encode::Charset->fallback_escape ($C, $c); |
| 487 |
if (defined $t) { |
if (defined $t) { |
| 488 |
my %D = (fallback => $C->{option}->{fallback_from_ucs}, reset => $C->{option}->{reset}); |
my %D = (fallback => $C->{option}->{fallback_from_ucs}, reset => $C->{option}->{reset}); |
| 489 |
$C->{option}->{fallback_from_ucs} = 'croak'; |
$C->{option}->{fallback_from_ucs} = 'croak'; |