From: Rafael Kitover <rkitover@cpan.org>
Date: Mon, 14 Sep 2009 13:48:52 +0000 (+0000)
Subject: remove @args from DBI::sth, use full arg list
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0836d2fd0dbb872d82ccb2a20fc6b50ea1aa0f00;p=dbsrgits%2FDBIx-Class-Historic.git

remove @args from DBI::sth, use full arg list
---

diff --git a/lib/DBIx/Class/Storage/DBI.pm b/lib/DBIx/Class/Storage/DBI.pm
index e4e6728..ed79308 100644
--- a/lib/DBIx/Class/Storage/DBI.pm
+++ b/lib/DBIx/Class/Storage/DBI.pm
@@ -2078,8 +2078,8 @@ sub _dbh_sth {
 }
 
 sub sth {
-  my ($self, $sql, @args) = @_;
-  $self->dbh_do('_dbh_sth', $sql, @args);  # retry over disconnects
+  my ($self, $sql, $op, $sth_attr) = @_;
+  $self->dbh_do('_dbh_sth', $sql, $op, $sth_attr);  # retry over disconnects
 }
 
 sub _dbh_columns_info_for {