/[suikacvs]/messaging/manakai/lib/Message/Charset/Info.pm
Suika

Diff of /messaging/manakai/lib/Message/Charset/Info.pm

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

revision 1.12 by wakaba, Sun Sep 14 03:08:32 2008 UTC revision 1.13 by wakaba, Sun Sep 14 06:59:08 2008 UTC
# Line 1117  sub get_decode_handle ($$;%) { Line 1117  sub get_decode_handle ($$;%) {
1117    my %opt = @_;    my %opt = @_;
1118    
1119    my $obj = {    my $obj = {
1120        category => $self->{category},
1121      char_buffer => \(my $s = ''),      char_buffer => \(my $s = ''),
1122      char_buffer_pos => 0,      char_buffer_pos => 0,
1123      character_queue => [],      character_queue => [],
# Line 1182  sub get_decode_handle ($$;%) { Line 1183  sub get_decode_handle ($$;%) {
1183        (%opt, allow_semiconforming => 1);        (%opt, allow_semiconforming => 1);
1184    if ($e) {    if ($e) {
1185      $obj->{perl_encoding_name} = $e->name;      $obj->{perl_encoding_name} = $e->name;
1186      if ($self->{category} & CHARSET_CATEGORY_EUCJP) {      if ($self->{category} & CHARSET_CATEGORY_SJIS) {
       return ((bless $obj, 'Whatpm::Charset::DecodeHandle::EUCJP'),  
               $e_status);  
     } elsif ($self->{category} & CHARSET_CATEGORY_SJIS) {  
1187        return ((bless $obj, 'Whatpm::Charset::DecodeHandle::ShiftJIS'),        return ((bless $obj, 'Whatpm::Charset::DecodeHandle::ShiftJIS'),
1188                $e_status);                $e_status);
1189      #} elsif ($self->{category} & CHARSET_CATEGORY_BLOCK_SAFE) {      #} elsif ($self->{category} & CHARSET_CATEGORY_BLOCK_SAFE) {
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24