From: Ken Youens-Clark <kclark@cpan.org>
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 <kclark@cpan.org>,
 #                    Allen Day <allenday@users.sourceforge.net>,
@@ -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;