From: Ben Faga <faga@cshl.edu>
Date: Mon, 19 May 2008 20:57:14 +0000 (+0000)
Subject: Made change suggested by Daniel Böhringer to allow "ID" integer DEFAULT nextval(... 
X-Git-Tag: v0.11008~313
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=37e74f257134006ceca288b33b4fdbca3f7591ca;p=dbsrgits%2FSQL-Translator.git

Made change suggested by Daniel Böhringer to allow "ID" integer DEFAULT nextval(('"AlleStudien_ID_seq"'::text)::regclass), to parse properly
---

diff --git a/lib/SQL/Translator/Parser/PostgreSQL.pm b/lib/SQL/Translator/Parser/PostgreSQL.pm
index 66cb74b..f0d6ad8 100644
--- a/lib/SQL/Translator/Parser/PostgreSQL.pm
+++ b/lib/SQL/Translator/Parser/PostgreSQL.pm
@@ -884,7 +884,7 @@ create_table : CREATE TABLE
 
 create_index : CREATE /index/i
 
-default_val  : DEFAULT /(\d+|'[^']*'|\w+\(.*?\))|\w+/
+default_val  : DEFAULT /(\d+|'[^']*'|\w+\(.*\))|\w+/
     { 
         my $val =  defined $item[2] ? $item[2] : '';
         $val    =~ s/^'|'$//g;