On Fri, Sep 26, 2003 at 06:32:41PM +0900, Dan Kogai wrote:
so we can make decode_utf8() as follows;
sub decode_utf8($;$)
{
my ($str, $check) = @_;
if ($check){
return decode("utf8", @_);
}else{
return undef unless utf8::decode($str);
return $str;
}
}