X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FTranslator%2FParser%2FSQLite.pm;h=4f2f12b4935673793e71948b0b6dc9b0e9a363f6;hb=6d4ce9b6eaa8ba0622008511eab07e3bd6fe2e36;hp=e2c70b7339355a5074dbedae8c3f66f2216d33a3;hpb=b727fc08127611b5f886ad72f53abd7e31dc78e0;p=dbsrgits%2FSQL-Translator.git diff --git a/lib/SQL/Translator/Parser/SQLite.pm b/lib/SQL/Translator/Parser/SQLite.pm index e2c70b7..4f2f12b 100644 --- a/lib/SQL/Translator/Parser/SQLite.pm +++ b/lib/SQL/Translator/Parser/SQLite.pm @@ -1,11 +1,9 @@ package SQL::Translator::Parser::SQLite; # ------------------------------------------------------------------- -# $Id: SQLite.pm,v 1.3 2003-10-08 22:37:59 kycl4rk Exp $ +# $Id: SQLite.pm,v 1.6 2004-02-09 22:23:40 kycl4rk Exp $ # ------------------------------------------------------------------- -# Copyright (C) 2003 Ken Y. Clark , -# darren chamberlain , -# Chris Mungall +# Copyright (C) 2002-4 SQLFairy Authors # # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as @@ -111,7 +109,7 @@ trigger-action ::= trigger-step ::= update-statement | insert-statement | - delete-statement | select-statemen + delete-statement | select-statement CREATE VIEW @@ -154,7 +152,7 @@ like-op::= use strict; use vars qw[ $DEBUG $VERSION $GRAMMAR @EXPORT_OK ]; -$VERSION = sprintf "%d.%02d", q$Revision: 1.3 $ =~ /(\d+)\.(\d+)/; +$VERSION = sprintf "%d.%02d", q$Revision: 1.6 $ =~ /(\d+)\.(\d+)/; $DEBUG = 0 unless defined $DEBUG; use Data::Dumper; @@ -182,7 +180,7 @@ $GRAMMAR = q! # failed. -ky # startrule : statement(s) eofile { - $return => { + $return = { tables => \%tables, views => \@views, triggers => \@triggers,