/[suikacvs]/perl/lib/Encode/ISO2022.pm
Suika

Diff of /perl/lib/Encode/ISO2022.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13 by wakaba, Mon Dec 16 10:25:01 2002 UTC revision 1.14 by wakaba, Wed Dec 18 10:21:09 2002 UTC
# Line 483  sub internal_to_iso2022 ($;%) { Line 483  sub internal_to_iso2022 ($;%) {
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';
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24