From: Peter Rabbitson <ribasushi@cpan.org>
Date: Mon, 8 Feb 2010 15:16:44 +0000 (+0000)
Subject: cheaper lookup
X-Git-Tag: v0.08119~28
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2ba92e450d43b9a1a247c807c7bc18edcfacf77d;p=dbsrgits%2FDBIx-Class.git

cheaper lookup
---

diff --git a/lib/DBIx/Class/UTF8Columns.pm b/lib/DBIx/Class/UTF8Columns.pm
index d55224b..a25ac39 100644
--- a/lib/DBIx/Class/UTF8Columns.pm
+++ b/lib/DBIx/Class/UTF8Columns.pm
@@ -113,7 +113,8 @@ sub store_column {
 
 # 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