From: Ken Youens-Clark Date: Wed, 25 Jun 2003 19:25:38 +0000 (+0000) Subject: Added "()" to character class of "default_val" rule to allow "now()" to X-Git-Tag: v0.04~388 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5ddd74af3a8986194ca670b284f9ff59a77ac8ab;p=dbsrgits%2FSQL-Translator.git Added "()" to character class of "default_val" rule to allow "now()" to be accepted. --- diff --git a/lib/SQL/Translator/Parser/PostgreSQL.pm b/lib/SQL/Translator/Parser/PostgreSQL.pm index 5dc5e9e..8d360d8 100644 --- a/lib/SQL/Translator/Parser/PostgreSQL.pm +++ b/lib/SQL/Translator/Parser/PostgreSQL.pm @@ -1,7 +1,7 @@ package SQL::Translator::Parser::PostgreSQL; # ------------------------------------------------------------------- -# $Id: PostgreSQL.pm,v 1.19 2003-06-23 21:44:32 kycl4rk Exp $ +# $Id: PostgreSQL.pm,v 1.20 2003-06-25 19:25:38 kycl4rk Exp $ # ------------------------------------------------------------------- # Copyright (C) 2003 Ken Y. Clark , # Allen Day , @@ -111,7 +111,7 @@ View table: use strict; use vars qw[ $DEBUG $VERSION $GRAMMAR @EXPORT_OK ]; -$VERSION = sprintf "%d.%02d", q$Revision: 1.19 $ =~ /(\d+)\.(\d+)/; +$VERSION = sprintf "%d.%02d", q$Revision: 1.20 $ =~ /(\d+)\.(\d+)/; $DEBUG = 0 unless defined $DEBUG; use Data::Dumper; @@ -617,7 +617,7 @@ create_table : /create/i /table/i create_index : /create/i /index/i -default_val : /default/i /(?:')?[\w\d.-]*(?:')?/ +default_val : /default/i /(?:')?[\w\d().-]*(?:')?/ { my $val = $item[2] || ''; $val =~ s/'//g;