Parent Directory | Revision Log | Patch
revision 1.4 by wakaba, Fri Sep 20 14:01:45 2002 UTC | revision 1.5 by wakaba, Mon Sep 23 08:28:39 2002 UTC | |
---|---|---|
# | Line 22 sub decode ($$;$) { | Line 22 sub decode ($$;$) { |
22 | $str =~ s{([\xA0-\xF5].|[\xF6-\xFB]..|[\xFC-\xFF]....)}{ | $str =~ s{([\xA0-\xF5].|[\xF6-\xFB]..|[\xFC-\xFF]....)}{ |
23 | chr (_utf1toucs4 (unpack 'C*', $1)) | chr (_utf1toucs4 (unpack 'C*', $1)) |
24 | }gex; | }gex; |
Encode::_utf8_on ($str); | ||
25 | $_[1] = '' if $chk; | $_[1] = '' if $chk; |
26 | return $str; | return $str; |
27 | } | } |
|
admin@suikawiki.org | ViewVC Help |
Powered by ViewVC 1.1.24 |