[Bast-commits] r8593 - DBIx-Class/0.08/trunk/lib/DBIx/Class

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-02-08 15:16:44 +0000 (Mon, 08 Feb 2010)
New Revision: 8593

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/UTF8Columns.pm
Log:
cheaper lookup

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/UTF8Columns.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/UTF8Columns.pm	2010-02-08 13:43:50 UTC (rev 8592)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/UTF8Columns.pm	2010-02-08 15:16:44 UTC (rev 8593)
@@ -113,7 +113,8 @@
 
 # override this if you want to force everything to be encoded/decoded
 sub _is_utf8_column {
-  return (shift->utf8_columns || {})->{shift @_};
+  # my ($self, $col) = @_;
+  return ($_[0]->utf8_columns || {})->{$_[1]};
 }
 
 =head1 AUTHORS