perl-unicode

Re: Fix UTF Encoding issue

2007-12-04 05:48:06
On Tue, Dec 04, 2007 at 10:33:39AM +0200, Ismail Dönmez wrote:
Following to_utf8 function works for me :

For me too (Debian sarge+etch).

sub to_utf8 {
·   my $str = shift;

    if(utf8::valid($str))
    {
        utf8::decode($str);
    }
·
    return $str;

In the original thread, there was some discussion, that some people
might want a different fallback endcoding. So mayme you should 
keep the second call to decode for the fallback encoding.

}

mfg Martin Kögler

<Prev in Thread] Current Thread [Next in Thread>