From f66f362a4c917c0499f883480775c3b9aa1d4d77 Mon Sep 17 00:00:00 2001
From: Kenichi Ishigaki <ishigaki@cpan.org>
Date: Thu, 29 Jan 2009 02:53:17 +0000
Subject: [PATCH] DBD::SQLite: applied a patch to fix wrong primary key [RT
 #34408]

---
 lib/DBD/SQLite.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/DBD/SQLite.pm b/lib/DBD/SQLite.pm
index ff17ff9..c7fdeb9 100644
--- a/lib/DBD/SQLite.pm
+++ b/lib/DBD/SQLite.pm
@@ -208,7 +208,7 @@ sub primary_key_info {
 	my @pk = split /\s*,\s*/, $2 || '';
 	unless (@pk) {
 	    my $prefix = $1;
-	    $prefix =~ s/.*create\s+table\s+.*?\(\s*//i;
+	    $prefix =~ s/.*create\s+table\s+.*?\(\s*//si;
 	    $prefix = (split /\s*,\s*/, $prefix)[-1];
 	    @pk = (split /\s+/, $prefix)[0]; # take first word as name
 	}