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;
> }
> }Sure, worksforme. Thanks! /Autrijus/
pgp00000.pgp
Description: PGP signature
