From: Robert Bohne <rbo@cpan.org>
Date: Thu, 4 Feb 2010 10:41:20 +0000 (+0100)
Subject: Use QuotedDefault in DBI::SQLite, fixed default value
X-Git-Tag: 0.05001~6
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=893c0d45a762ac8c56c1a0e6da726aaa44986b03;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

Use QuotedDefault in DBI::SQLite, fixed default value

prove -Ilib -v t/10sqlite_common.t
[..snipped..]
not ok 31 - Correct default value
   Failed test 'Correct default value'
   at t/lib/dbixcsl_common_tests.pm line 289.
          got: ''foo''
     expected: 'foo'

ok 32 - Find got the right row
[..snipped..]
---

diff --git a/lib/DBIx/Class/Schema/Loader/DBI/SQLite.pm b/lib/DBIx/Class/Schema/Loader/DBI/SQLite.pm
index 80efba6..3b36e22 100644
--- a/lib/DBIx/Class/Schema/Loader/DBI/SQLite.pm
+++ b/lib/DBIx/Class/Schema/Loader/DBI/SQLite.pm
@@ -2,7 +2,10 @@ package DBIx::Class::Schema::Loader::DBI::SQLite;
 
 use strict;
 use warnings;
-use base qw/DBIx::Class::Schema::Loader::DBI/;
+use base qw/
+    DBIx::Class::Schema::Loader::DBI::Component::QuotedDefault
+    DBIx::Class::Schema::Loader::DBI
+/;
 use Carp::Clan qw/^DBIx::Class/;
 use Text::Balanced qw( extract_bracketed );
 use Class::C3;