[Bast-commits] r7094 - DBIx-Class/0.08/branches/mssql_money_type/lib/DBIx/Class/Storage/DBI/ODBC

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-07-23 14:34:06 +0000 (Thu, 23 Jul 2009)
New Revision: 7094

Modified:
   DBIx-Class/0.08/branches/mssql_money_type/lib/DBIx/Class/Storage/DBI/ODBC/Microsoft_SQL_Server.pm
Log:
minor change

Modified: DBIx-Class/0.08/branches/mssql_money_type/lib/DBIx/Class/Storage/DBI/ODBC/Microsoft_SQL_Server.pm
===================================================================
--- DBIx-Class/0.08/branches/mssql_money_type/lib/DBIx/Class/Storage/DBI/ODBC/Microsoft_SQL_Server.pm	2009-07-23 14:31:08 UTC (rev 7093)
+++ DBIx-Class/0.08/branches/mssql_money_type/lib/DBIx/Class/Storage/DBI/ODBC/Microsoft_SQL_Server.pm	2009-07-23 14:34:06 UTC (rev 7094)
@@ -43,7 +43,7 @@
     my $fields = $args->[0];
     my $col_info = $self->_resolve_column_info($ident, [keys %$fields]);
 
-    for my $col (keys %$col_info) {
+    for my $col (keys %$fields) {
       if ($col_info->{$col}{data_type} eq 'money') {
         my $val = $fields->{$col};