From: Rafael Kitover <rkitover@cpan.org>
Date: Thu, 4 Mar 2010 12:24:47 +0000 (-0500)
Subject: Firebird: find quoted generators
X-Git-Tag: 0.06000~66
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3d044e23368dfbcf6a8f8c3225b96fa19642d932;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

Firebird: find quoted generators
---

diff --git a/lib/DBIx/Class/Schema/Loader/DBI/InterBase.pm b/lib/DBIx/Class/Schema/Loader/DBI/InterBase.pm
index 97e5ce6..11b4ca2 100644
--- a/lib/DBIx/Class/Schema/Loader/DBI/InterBase.pm
+++ b/lib/DBIx/Class/Schema/Loader/DBI/InterBase.pm
@@ -124,7 +124,7 @@ EOF
         my @trig_cols = $trigger =~ /new\."?(\w+)/ig;
 
         my ($generator) = $trigger =~
-/(?:gen_id\s* \( \s* |next \s* value \s* for \s*)(\w+)/ix;
+/(?:gen_id\s* \( \s* |next \s* value \s* for \s*)"?(\w+)/ix;
 
         if (first { lc($_) eq lc($column) } @trig_cols) {
             $extra_info{is_auto_increment} = 1;