From: David Kamholz <dkamholz@cpan.org>
Date: Sun, 19 Feb 2006 22:26:14 +0000 (+0000)
Subject: minor optimization to Row.pm
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ecd1f408d1d78e256ba785594c2b5f5d7d516cf3;p=dbsrgits%2FDBIx-Class-Historic.git

minor optimization to Row.pm
---

diff --git a/lib/DBIx/Class/Row.pm b/lib/DBIx/Class/Row.pm
index bb72a3a..4c0bae2 100644
--- a/lib/DBIx/Class/Row.pm
+++ b/lib/DBIx/Class/Row.pm
@@ -246,7 +246,7 @@ sub copy {
       if $self->result_source->column_info($col)->{is_auto_increment};
   }
   my $new = bless({ _column_data => $col_data }, ref $self);
-  $new->set_column($_ => $changes->{$_}) for keys %$changes;
+  $new->set_columns($changes);
   $new->insert;
   foreach my $rel ($self->result_source->relationships) {
     my $rel_info = $self->result_source->relationship_info($rel);