From: Ivan Kohler <ivan@freeside.biz>
Date: Thu, 7 May 2015 04:54:02 +0000 (-0700)
Subject: fix SQLite reverse-engineering, closes: CPAN#95961
X-Git-Url: http://git.freeside.biz/gitweb/?p=DBIx-DBSchema.git;a=commitdiff_plain;h=6ec1ee30dd682e357315d8435d7cfda6f9f4112d

fix SQLite reverse-engineering, closes: CPAN#95961
---

diff --git a/Changes b/Changes
index 16cb2db..8da2e13 100644
--- a/Changes
+++ b/Changes
@@ -3,6 +3,7 @@ Revision history for Perl module DBIx::DBSchema
 0.45 unreleased
     - MySQL does not support DEFAULT for TEXT/BLOB columns, closes: CPAN#58505
     - doc: Add repository information
+    - fix SQLite reverse-engineering, closes: CPAN#95961
 
 0.44 2013-11-15 17:54:37 PST
     - POD fixes from Xavier Guimard <x.guimard@free.fr> and Damyan Ivanov
diff --git a/DBSchema/DBD/SQLite.pm b/DBSchema/DBD/SQLite.pm
index 042dc2a..6cfb017 100644
--- a/DBSchema/DBD/SQLite.pm
+++ b/DBSchema/DBD/SQLite.pm
@@ -1,11 +1,10 @@
 package DBIx::DBSchema::DBD::SQLite;
+use base qw( DBIx::DBSchema::DBD );
 
 use strict;
-use vars qw($VERSION @ISA %typemap);
-use DBIx::DBSchema::DBD;
+use vars qw($VERSION %typemap);
 
-$VERSION = '0.02';
-@ISA = qw(DBIx::DBSchema::DBD);
+$VERSION = '0.03';
 
 %typemap = (
   'SERIAL' => 'INTEGER PRIMARY KEY AUTOINCREMENT',
@@ -50,7 +49,7 @@ driver-specific use (which for sqlite is whether this col is a primary key)
 
 sub columns {
     my ( $proto, $dbh, $table ) = @_;
-    my $sth  = $dbh->prepare('PRAGMA table_info($table)');
+    my $sth  = $dbh->prepare("PRAGMA table_info($table)");
         $sth->execute();
     my $rows = [];