/[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.13 by wakaba, Mon Dec 16 10:25:01 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/;

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

admin@suikawiki.org
ViewVC Help
Powered by ViewVC 1.1.24