/[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.12 by wakaba, Sat Dec 14 11:02:25 2002 UTC revision 1.14 by wakaba, Wed Dec 18 10:21:09 2002 UTC
# Line 471  sub internal_to_iso2022 ($;%) { Line 471  sub internal_to_iso2022 ($;%) {
471        }        }
472        $t = _i2o ($c, $C, cs_F => $F) if $F;        $t = _i2o ($c, $C, cs_F => $F) if $F;
473      }      }
474      if (defined $t) {   ## Output character itself      if (defined $t) {   ## Output the character itself
475        $r .= $t;        $r .= $t;
476      } elsif ($C->{option}->{fallback_from_ucs} =~ /quiet/) {      } elsif ($C->{option}->{fallback_from_ucs} =~ /quiet/) {
477        $r .= _back2ascii ($C) if $C->{option}->{fallback_from_ucs} =~ /back/;        $r .= _back2ascii ($C) if $C->{option}->{fallback_from_ucs} =~ /back/;
# 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.12  
changed lines
  Added in v.1.14
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24