From: Justin Hunter <justin.d.hunter@gmail.com>
Date: Sat, 5 Sep 2009 16:48:07 +0000 (-0700)
Subject: make sure we are comparing against lowercase
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=510f91a870458b8182778975c432b8db9644dab2;p=dbsrgits%2FSQL-Translator-2.0-ish.git

make sure we are comparing against lowercase
---

diff --git a/lib/SQL/Translator/Parser/DDL/PostgreSQL.pm b/lib/SQL/Translator/Parser/DDL/PostgreSQL.pm
index cceb5b6..ed7f446 100644
--- a/lib/SQL/Translator/Parser/DDL/PostgreSQL.pm
+++ b/lib/SQL/Translator/Parser/DDL/PostgreSQL.pm
@@ -60,7 +60,7 @@ role SQL::Translator::Parser::DDL::PostgreSQL {
                 $table->primary_key($field->name) if $fdata->{is_primary_key};
     
                 for my $cdata ( @{ $fdata->{constraints} } ) {
-                    next unless $cdata->{type} eq 'foreign_key';
+                    next unless lc $cdata->{type} eq 'foreign_key';
                     $cdata->{fields} ||= [ $field->name ];
                     push @{ $tdata->{constraints} }, $cdata;
                 }