svnno****@sourc*****
svnno****@sourc*****
2007年 9月 26日 (水) 19:44:41 JST
Revision: 174 http://svn.sourceforge.jp/cgi-bin/viewcvs.cgi?root=slashdotjp&view=rev&rev=174 Author: tach Date: 2007-09-26 19:44:40 +0900 (Wed, 26 Sep 2007) Log Message: ----------- do not decode if already decoded Modified Paths: -------------- slashjp/trunk/Slash/DB/MySQL/MySQL.pm -------------- next part -------------- Modified: slashjp/trunk/Slash/DB/MySQL/MySQL.pm =================================================================== --- slashjp/trunk/Slash/DB/MySQL/MySQL.pm 2007-09-26 10:41:53 UTC (rev 173) +++ slashjp/trunk/Slash/DB/MySQL/MySQL.pm 2007-09-26 10:44:40 UTC (rev 174) @@ -311,7 +311,8 @@ # Perl has lost the flag somewhere sub sqlDo{ my($self, $sql) = @_; - $self->SUPER::sqlDo(decode_utf8($sql)); + Encode::is_utf8($sql) or $sql = decode_utf8($sql); + $self->SUPER::sqlDo($sql); } ########################################################