[Slashdotjp-dev 671] [174] do not decode if already decoded

アーカイブの一覧に戻る

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);
 }
 
 ########################################################


Slashdotjp-dev メーリングリストの案内
アーカイブの一覧に戻る