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 |