X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FAbstract.pm;fp=lib%2FSQL%2FAbstract.pm;h=3c809029b75af0b802eaaec10d6c397387b23f9e;hb=a02a1ca490733d96fd611869208932b132c7266e;hp=eb048d09b96d82ddcbb5e63509e53794426b77a3;hpb=ca4f826a37ccb5194b0b5b9b4190b4007d647d9c;p=dbsrgits%2FSQL-Abstract.git

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index eb048d0..3c80902 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -214,6 +214,10 @@ sub insert {
   my $data    = shift || return;
   my $options = shift;
 
+  if (my $cols = $options->{columns}) {
+    $table_sql .= '('.join(', ', map $self->_quote($_), @$cols).')';
+  }
+
   my $method       = $self->_METHOD_FOR_refkind("_insert", $data);
   my ($sql, @bind) = $self->$method($data);
   $sql = join " ", $self->_sqlcase('insert into'), $table, $sql;