From: Matt S Trout <mst@shadowcat.co.uk>
Date: Wed, 25 Oct 2006 05:19:21 +0000 (+0000)
Subject: because this actually works
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e417cd15072587644f733d7b68153acb37fa227b;p=dbsrgits%2FDBIx-Class-Historic.git

because this actually works
---

diff --git a/lib/DBIx/Class/Storage/DBI/NoBindVars.pm b/lib/DBIx/Class/Storage/DBI/NoBindVars.pm
index 4ff6925..09a45f6 100644
--- a/lib/DBIx/Class/Storage/DBI/NoBindVars.pm
+++ b/lib/DBIx/Class/Storage/DBI/NoBindVars.pm
@@ -43,10 +43,7 @@ sub _execute {
     $self->debugobj->query_start($sql, @debug_bind);
   }
 
-  while(my $bvar = shift @bind) {
-    $bvar = $self->dbh->quote($bvar);
-    $sql =~ s/\?/$bvar/;
-  }
+  $sql =~ s/\?/shift(@bind)/eg;
 
   my $sth = eval { $self->sth($sql,$op) };