From: Arthur Axel "fREW" Schmidt <frioux@gmail.com>
Date: Mon, 8 Feb 2010 05:23:58 +0000 (+0000)
Subject: fix bug in UTF8Columns
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9738897e690b569fe7750d8b0bbe46f0afdf5b16;p=dbsrgits%2FDBIx-Class-Historic.git

fix bug in UTF8Columns
---

diff --git a/Changes b/Changes
index 3146e10..fd0f307 100644
--- a/Changes
+++ b/Changes
@@ -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
diff --git a/lib/DBIx/Class/UTF8Columns.pm b/lib/DBIx/Class/UTF8Columns.pm
index 7e21502..b5349a7 100644
--- a/lib/DBIx/Class/UTF8Columns.pm
+++ b/lib/DBIx/Class/UTF8Columns.pm
@@ -114,7 +114,7 @@ sub store_column {
 
 # 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