because this actually works
Matt S Trout [Wed, 25 Oct 2006 05:19:21 +0000 (05:19 +0000)]
lib/DBIx/Class/Storage/DBI/NoBindVars.pm

index 4ff6925..09a45f6 100644 (file)
@@ -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) };