fixed boneheaded failure to properly propogate txn_do

[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / CDBICompat / GetSet.pm

diff --git a/lib/DBIx/Class/CDBICompat/GetSet.pm b/lib/DBIx/Class/CDBICompat/GetSet.pm
index a11baeb..dd621f2 100644 (file)
--- a/lib/DBIx/Class/CDBICompat/GetSet.pm
+++ b/lib/DBIx/Class/CDBICompat/GetSet.pm
@@ -21,7 +21,11 @@ sub set {
   # set_columns() is going to do a string comparison before setting.
   # This breaks on DateTime objects (whose comparison is arguably broken)
   # so we stringify anything first.
-  $data{$_} = "$data{$_}" for keys %data;
+  for my $key (keys %data) {
+    next unless ref $data{$key};
+    $data{$key} = "$data{$key}";
+  }
+
   return shift->set_columns(\%data);
 }