From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sat, 14 Apr 2012 15:49:05 +0000 (+0000)
Subject: pass unknown @_ downwards for subclassers
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=03ad2ccfde04431f7bae2ea679dfc45dc483a96e;p=dbsrgits%2FSQL-Abstract.git

pass unknown @_ downwards for subclassers
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index 41c1786..3b61a58 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -320,7 +320,7 @@ sub _update_to_dq {
 #======================================================================
 
 sub _source_to_dq {
-  my ($self, $table, $where) = @_;
+  my ($self, $table, undef, $where) = @_;
 
   my $source_dq = $self->_table_to_dq($table);
 
@@ -338,9 +338,10 @@ sub _source_to_dq {
 sub select { shift->_render_sqla(select => @_) }
 
 sub _select_to_dq {
-  my ($self, $table, $fields, $where, $order) = @_;
+  my $self = shift;
+  my ($table, $fields, $where, $order) = @_;
 
-  my $source_dq = $self->_source_to_dq($table, $where);
+  my $source_dq = $self->_source_to_dq(@_);
 
   my $ordered_dq = do {
     if ($order) {