X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FRow.pm;h=f789b2907481ddda1344b1a6cb1f4c114d3160f6;hb=f85f550e1a6edce9b939b32b604bbe85f1650d39;hp=cb086c8077da448834228db67ffee498d7481299;hpb=fef5d100c208d604c7a7b3c33eb6e32946d71848;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/lib/DBIx/Class/Row.pm b/lib/DBIx/Class/Row.pm index cb086c8..f789b29 100644 --- a/lib/DBIx/Class/Row.pm +++ b/lib/DBIx/Class/Row.pm @@ -211,11 +211,7 @@ sub store_column { sub _row_to_object { my ($class, $cols, $row) = @_; my %vals; - foreach my $pos (0..$#$cols) { - my $c = $cols->[$pos]; - $c =~ s/^me\.//; - $vals{$c} = $row->[$pos]; - } + $vals{$cols->[$_]} = $row->[$_] for 0 .. $#$cols; my $new = $class->new(\%vals); $new->in_storage(1); return $new;