From: Matt S Trout <mst@shadowcat.co.uk>
Date: Wed, 25 Oct 2006 07:11:15 +0000 (+0000)
Subject: fix it properly, fix Changes
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a4c8f60de274a233052d373013c45af06df2a76c;p=dbsrgits%2FDBIx-Class-Historic.git

fix it properly, fix Changes
---

diff --git a/Changes b/Changes
index a1ce170..cb59335 100644
--- a/Changes
+++ b/Changes
@@ -3,6 +3,8 @@ Revision history for DBIx::Class
 0.07003 2006-XX-XX XX:XX:XX
         - Fix UTF8Columns to work under Perl <= 5.8.0
         - Fix up new_result in ResultSet to avoid alias-related bugs
+        - Made new/update/find handle 'single' rel accessor correctly
+        - Fix NoBindVars to be safer and handle non-true bind values
 
 0.07002 2006-09-14 21:17:32
         - fix quote tests for recent versions of SQLite
diff --git a/lib/DBIx/Class/Storage/DBI/NoBindVars.pm b/lib/DBIx/Class/Storage/DBI/NoBindVars.pm
index 09a45f6..2388762 100644
--- a/lib/DBIx/Class/Storage/DBI/NoBindVars.pm
+++ b/lib/DBIx/Class/Storage/DBI/NoBindVars.pm
@@ -43,7 +43,7 @@ sub _execute {
     $self->debugobj->query_start($sql, @debug_bind);
   }
 
-  $sql =~ s/\?/shift(@bind)/eg;
+  $sql =~ s/\?/$self->_dbh->quote(shift(@bind))/eg;
 
   my $sth = eval { $self->sth($sql,$op) };