[Bast-commits] r8577 - in DBIx-Class/0.08/trunk: . lib/DBIx/Class

[frew at dev.catalyst.perl.org]

Author: frew
Date: 2010-02-08 05:23:58 +0000 (Mon, 08 Feb 2010)
New Revision: 8577

Modified:
   DBIx-Class/0.08/trunk/Changes
   DBIx-Class/0.08/trunk/lib/DBIx/Class/UTF8Columns.pm
Log:
fix bug in UTF8Columns

Modified: DBIx-Class/0.08/trunk/Changes
===================================================================
--- DBIx-Class/0.08/trunk/Changes	2010-02-08 05:17:43 UTC (rev 8576)
+++ DBIx-Class/0.08/trunk/Changes	2010-02-08 05:23:58 UTC (rev 8577)
@@ -1,5 +1,7 @@
 Revision history for DBIx::Class
 
+        - Fix a bug causing UTF8 columns not to be decoded (RT #54395)
+
 0.08117 2010-02-05 17:10:00 (UTC)
         - Perl 5.8.1 is now the minimum supported version
         - Massive optimization of the join resolution code - now joins

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/UTF8Columns.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/UTF8Columns.pm	2010-02-08 05:17:43 UTC (rev 8576)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/UTF8Columns.pm	2010-02-08 05:23:58 UTC (rev 8577)
@@ -114,7 +114,7 @@
 
 # override this if you want to force everything to be encoded/decoded
 sub _is_utf8_column {
-  return (shift->utf8_columns || {})->{shift};
+  return (shift->utf8_columns || {})->{shift @_};
 }
 
 =head1 AUTHORS