X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class.git;a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FInflateColumn.pm;h=6b06cb091fba89f50f395efd9c955caa3c98979a;hp=de68b23a064a3c627afaed2aa490de5e7e9fdb5d;hb=096f421241;hpb=03f24ee3c4fd551a0de43a1cc2821184f8864cb8 diff --git a/lib/DBIx/Class/InflateColumn.pm b/lib/DBIx/Class/InflateColumn.pm index de68b23..6b06cb0 100644 --- a/lib/DBIx/Class/InflateColumn.pm +++ b/lib/DBIx/Class/InflateColumn.pm @@ -214,7 +214,7 @@ inflation and deflation of columns appropriately. sub update { my ($class, $attrs, @rest) = @_; foreach my $key (keys %{$attrs||{}}) { - if (ref $attrs->{$key} + if (ref $attrs->{$key} && $class->has_column($key) && exists $class->column_info($key)->{_inflate_info}) { $class->set_inflated_column($key, delete $attrs->{$key}); } @@ -234,7 +234,8 @@ sub new { my $inflated; foreach my $key (keys %{$attrs||{}}) { $inflated->{$key} = delete $attrs->{$key} - if ref $attrs->{$key} && exists $class->column_info($key)->{_inflate_info}; + if ref $attrs->{$key} && $class->has_column($key) + && exists $class->column_info($key)->{_inflate_info}; } my $obj = $class->next::method($attrs, @rest); $obj->{_inflated_column} = $inflated if $inflated;